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ÉDITIONS DU P.S.I. 
1986 


Daniel Nielsen, directeur d'école, tra- 
vaille depuis quatre ans à l'introduction 
de l'informatique dans l'enseignement 
primaire. 


Il a pu constater que l'ordinateur est 
une aide précieuse, en particulier pour 
les enfants ayant des difficultés sco- 
laires. 


Augustin Garcia Ampudia, 21 ans, étu- 
die l'informatique à l'université Pierre et 
Marie Curie (Paris VI). 


Par ailleurs, il collabore à plusieurs re- 
vues spécialisées “micro-informatique”. 
Spécialiste des langages Basic et Pascal, 
il sévit sur les micro-ordinateurs fami- 
liaux, ne dédaignant pas pour autant les 
standards 16 et 32 bits. 


En septembre 1981, il avait acheté un 
ZX 81. 


Amstrad Amdos et Amstrad CPC 464, 664 et 6128 sont des marques 
déposées de Amstrad Consumer Electronics. 
AMX Mouse est une marque déposée de Advanced Memory Systems Ctd. 
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Introduction 


L'ordinateur à l'école n’est plus une innovation. En effet, de 
multiples recherches ont été effectuées et de nombreuses ex- 
périences actives sont en cours dans des écoles. Elles ont per- 
mis de constater que l'ordinateur ouvrait de nouvelles 
perspectives d'enseignement en apportant des motivations dif- 
férentes, en créant des possibilités d'action originales (pour les 
enseignants et les enfants) dans le travail en classe. 


Désormais, l'enfant n'est plus un sujet passif absorbant un 
lot de connaissances multiples et diverses, mais au contraire 
un élément actif de sa propre formation. 


L'ordinateur à la maison fait aussitôt penser aux jeux, à la 
gestion familiale, mais il peut être aussi un auxiliaire éducatif 
pour les enfants, car l'ordinateur est un excellent répétiteur : 
l'exercice sur ordinateur détecte chaque erreur de l'enfant, 
l'amène à la corriger et lui permet de continuer l'exercice sur 
des bases exactes. 


Enfin, pour les enfants, c'est cet instrument séduisant qui rap- 
pelle plus les jeux vidéo que l'école ou les devoirs à la maison 
et devant lequel s’assiéront avec plaisir pour participer à une 
activité également ceux que l’on dit inadaptés au monde sco- 
laire (à moins que ce soit le monde scolaire qui ne leur soit pas 
adapté...). 


Si vous partagez ces opinions, et si vous ne disposez pas du 
temps nécessaire pour réaliser vous-même vos propres pro- 
grammes, ce livre a été écrit pour vous. 


Les 21 programmes qui y sont présentés recouvrent toutes 
les matières étudiées à l’école et tous les niveaux d'âge (voir les 
index de classement par niveaux et par thèmes). Ces pro- 
grammes ont été écrits par un enseignant, tout d'abord pour 
être utilisés par les enfants dans l'école dont il a la responsabi- 
lité. 
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C'est donc la finalité éducative et la présentation sur l'écran 
qui ont été les objectifs prioritaires lors de l'élaboration de ces 
programmes. Certains trouveront sans doute des procédures 
de travail plus courtes. 


Finalité éducative : à chaque programme, qu'il soit didactique 
ou de jeu, correspond un certain nombre de connaissances que 
l'enfant va acquérir ou ré-investir. De même, il devra, pour ar- 
river au but, mettre en œuvre différents types de « savoir-faire » 
(attention, logique, etc.). 


Présentation sur l'écran : c'est un point très important, et par- 
fois malheureusement négligé, des programmes pour enfants : 
une quantité trop importante d'informations sur l'écran dé- 
tourne l'attention. Il faut souvent « faire le ménage » et ne gar- 
der que ce qui est indispensable et bien le placer sur l'écran. 
Cela allonge les programmes, mais c'est indispensable. 


Certains listings de programmes vous paraîtront parfois longs 
à taper : afin de rendre les listes claires et facilement recopia- 
bles, les programmes sont ponctués d'instructions REM expli- 
quant les fonctions des différents blocs d'instructions. De plus, 
les numéros de ligne se succèdent de 10 en 10 afin de faciliter 
la saisie. 


Par précaution, et par habitude aussi des différents tracas 
subis lors des saisies de programmes, nous vous conseillons 
de sauvegarder les programmes périodiquement lorsque vous 
les tapez. De cette manière, même si un incident survient (panne 
de courant, ou … saute d'humeur de votre AMSTRAD CPC), 
vous ne perdrez pas trop de travail et n'aurez qu'un petit nom- 
bre de lignes à taper de nouveau. 


Conseils techniques généraux 


La fonction RND (tirage au sort d'un nombre aléatoire entre 
0 et 1) est présente dans chaque programme. C'est elle qui per- 
met, à partir des mêmes données, d'obtenir des exercices ou 
des jeux différents chaque fois. 


Sur un AMSTRAD CPC, ces fonctions sont en fait pseudo- 
aléatoires : elles utilisent une fonction mathématique relative- 
ment imprévisible qui utilise le nombre généré à l'appel précé- 
dent pour en générer un nouveau. En conséquence, si le premier 
nombre généré est fixé, la suite des nombres générés par cha- 
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que appel sera la même. C'est notamment le cas si on n'initia- 
lise pas le générateur au début du programme. A cet effet, le 
BASIC de l’Amstrad propose une instruction RANDOMIZE. Si 
cette instruction est utilisée, le générateur est initialisé avec un 
nombre provenant de l'horloge interne de AMSTRAD CPC 
(nombre modifié plusieurs milliers de fois par seconde !) : on 
obtiendra alors des jeux à chaque fois différents. 


Toutefois, il peut être souhaitable d'obtenir le même jeu pour 
tous les enfants. Dans ce cas, il est possible de mettre un 
nombre derrière RANDOMIZE. La suite générée dépendra du 
nombre en question, mais elle sera la même à chaque exécu- 
tion du programme. Vous pouvez utiliser cette possibilité par 
exemple pour personnaliser les jeux afin que chaque élève ait 
son propre jeu. Îl suffira (ce n’est qu'un exemple de l'application 
de ce principe) de placer une instruction RANDOMIZE LEN(P$) 
au début du programme, la variable P$ contenant le nom du 
joueur. 


Ce second procédé, intéressant à l'école, l'est moins à la mai- 
son car l'intérêt va diminuer rapidement. À la maison, il faudra 
donc, après deux ou trois utilisations, modifier les programmes 
qui font appel à la deuxième technique, et se servir de la pre- 
mière. 


Manettes de jeux et clavier 


La manette de jeux des CPC est aux normes Atari, ce qui 
signifie, que n'importe quelle manette standard du commerce 
s'y adapte. Le crayon optique vendu en option n'étant pas une 
merveille de précision, nous avons décidé de donner des ver- 
sions de certains de nos programmes pour manette de jeux. 
Toutefois l'utilisation de la manette entraîne d'autres petits 
problèmes : l'enfant doit savoir où se trouve le haut, le bas, la 
droite et la gauche (ceci est un faux problème car nos petites 
têtes blondes trouvent rapidement l'astuce) ; le second incon- 
vénient est la rapidité de réponse de la manette. Pour palier ce 
défaut nous introduisons une boucle d'attente systématique. 


Récapitulons : les réponses au clavier se feront à l’aide des 
touches “1” et “Ÿ” pour les directions et de la touche “barre 
espace” pour la validation ; avec manette, le bouton de tir fera 
office de validation (les programmes comprennent jusqu'à deux 
boutons de tir), les directions se feront tout naturellement avec 
la tige de la manette. 
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Problèmes de compatibilité entre les différents CPC 


Afin de ne connaître aucun problème, les programmes ont 
été développés avec les instructions du CPC 464. Les utilisa- 
teurs d'écran monochromes ne sont pas oubliés, le choix des 
couleurs ayant été décidé sur un monochrome. Maintenant que 
tout le monde est satisfait, nous vous signalons que les lignes 
de REM sont parfaitement inutiles, les programmes ne les uti- 
lisant jamais comme lignes de renvoi. Inutiles ne signifie pas 
superflues, en effet, combien de débutants, après avoir tapé de 
longues heures et fait des RENUM, nous téléphonent au nu- 
méro vert pour nous dire que leur programme refuse de fonc- 
tionner. Notre spécialiste pourra répondre d'autant mieux qu'il 
leur indiquera la ligne exacte qui provoque l'erreur. 

A vos claviers et bon courage... 
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Index de classement par thèmes 









































































C 
à © : 
Thèmes = Réponse 
2 «© £ 2 2% © 
= a Le, = © = 3 = 
ë ete les) Elle Tele). 
S.1.6 dsl) Else lee | She 
2 LS < = = œ à S 2 
Programmes Ë G |Sà 
Kim musical X X X X X 
Autodictée | X X X X | L X 
Soutien X X X X X X X 
=] 
Safari X X X X X 
! ! | 
Lecture rapide | X X X X X X 
Lecture débutant x | x | x | x x | x 
Î 
Pluriel des noms X À X X X 
Conjugaison X X X X X 
Addition X X X X 
+ 
Soustraction X X X X 
T T 
Multiplication X X X X 
L L 1 
Division X X L X X 
Ravitaillement en vol x X X X X 


























Le train capricieux X X | X X X X X 
Villes de France X X X X L X 
| Lt L l 
Construction de phrases X X X X X 
l— l | L 1 
— 
J'écris tout seul X X X X X X 
Reconstitution de textes X X X X X X 
| | 
Cocktail magique X X | X X X X 
Et + 1 L 








Masse et volume 




















Kim nombres X X X X X 
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Index de classement par niveaux 























































































































Niveaux 
(années) 

5 6 v4 8 9 10 11 12 et plus 

Programmes 
+} F- 
Kim musical X X X X X X 
Autodictée X L X X X X X (1) 
Soutien X X | X X X X X (1) 
Safari X X X X 
Lecture rapide X X X X X X 
Lecture débutant X X X 
Pluriel des noms X 
Conjugaison H X 
Addition X X 
Soustraction X X 
Multiplication . X 
Division x 
Ravitaillement en vol X X X X X X 
PA 
Le train capricieux X X X X X X X X (1) 
Villes de France X X X X X 
Construction de phrases X X X X X 
—} —— 
J'écris tout seul X X 
+ 
Reconstitution de textes X X X X X X (1) 
TT us 1 Rec 

Cocktail magique X X X 
Masse et volume | J X X X 
Kim nombres selon niveau d'adaptation 





(1) Le niveau dépend surtout des données entrées dans le programme. 


KIM MUSICAL 


Thème 


Jeu musical sur le principe du jeu de Kim, recherche d'une 
note qui a disparu d’une séquence musicale de six notes, jouée 
par l'AMSTRAD CPC et affichée sur une portée. 


Niveau 


À partir de 7 ans. 


Intérêt pédagogique 


Connaissances 


— découverte de la gamme et des notes de musique ; 
— place des notes de musique sur une portée. 


Savoir-faire 


— mémoire ; 
— perception auditive ; 
— reconnaissance visuelle et auditive de la note manquante. 


14 | AMSTRAD A L'ÉCOLE 
Déroulement 


Après une explication du jeu, la gamme est présentée au 
joueur : chaque note s'inscrit sur une portée, son nom s'affiche 
en dessous et elle est jouée par l'AMSTRAD CPC. 


Pour continuer il faut appuyer sur une touche. 


Ensuite, une séquence aléatoire de six notes est affichée et 
jouée. 
Cette séquence est jouée une deuxième fois, mais avec une 


note en moins. L'enfant doit taper le nom de la note qui a dis- 
paru. L'AMSTRAD CPC joue sa réponse. 


Si la réponse est bonne, on passe à un jeu suivant. Sinon, le 
joueur a une seconde chance, après laquelle la bonne réponse 
lui est donnée, s'il s'est encore trompé. 


Le jeu se répète cinq fois mais, à partir du quatrième jeu, le 
nom de la note n’est plus affiché. L'enfant doit trouver la bonne 
réponse à l’aide des notes dessinées sur la portée et des sons 
joués par l'AMSTRAD CPC. 


Commentaires 


100 à 200 Module de présentation du programme, avec 
tout d'abord une mise en page graphique : ou- 
verture quatre fois de la même fenêtre pour 
donner une impression de relief. 


240 à 280 Initialisation et lecture des notes de la gamme. 
Les noms et périodes des notes sont sous la 
forme de DATAs (ligne 270) ; une fois lues, elles 
sont rangées dans deux tableaux note$(i) et pé- 
riode(i). IIs n’ont pas besoin d'être déclarés car 
les indices sont définis de 1 à 7. 


320 Appel de la procédure d'affichage de la gamme. 


350 à 440 Affichage et jeu de la séquence musicale. 
Chaque note est tirée au hasard (ligne 380) et 
affichée (ligne 390), son nom apparaît en clair 
les trois premiers jeux (ligne 400). Et enfin une 
fois jouée en ligne 410, elle est mémorisée à la 
ligne 420. 


480 à 560 


600 à 680 


720 à 760 


800 à 810 
820 à 890 


930 à 1020 


1060 à 1100 
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Affichage et jeu de la séquence qui comporte 
une note de moins. Celle-ci est tirée au sort 
(ligne 480), la partition est jouée et affichée en 
ne prenant pas en compte la note choisie (test 
ligne 560). Les positions des notes dépendent 
de leur indice dans la séquence ; à la place de 
la note enlevée on trouve un espace. 


Module de réponse. On demande la réponse du 
joueur, on la vérifie, en cas d'erreur on affiche 
un message et on donne une nouvelle chance 
(ligne 680). 


Non, vous n'avez pas trouvé, alors l'Amstrad 
vous montre ce qu'il fallait répondre. 


Cas de réponse correcte. 


Test de fin de programme. Si le troisième jeu 
n'a pas encore été effectué, on recommence, 
sinon on affiche un message pour avertir que 
les séquences suivantes se feront sans le nom 
des notes. Si jeu=5 alors fin du programme 
(ligne 840). 


Sous-programme de dessin de la gamme, fai- 
sant lui-même appel au sous-programme sui- 
vant. Les notes sont jouées et affichées sur la 
portée. 


Sous-programme de dessin de la portée. 


Particularités techniques 


On remarquera l'utilisation des fenêtres pour donner une im- 
pression de relief grâce aux ombres portées (lignes 110 et 120, 
ainsi que 140 et 150). 


L'Amstrad CPC possède des instructions pour gérer les sons, 
en particulier SOUND ; cette instruction nécessite plusieurs pa- 
ramètres dont la période qui nous permet de repérer nos notes. 


DO 478 
RE 426 
MI 379 
FA 358 
SOL 319 
LA 284 


SI 259 
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Les instructions LOCATE présentes lors des boucles permet- 
tent l'affichage des noms des notes ainsi que du symbole sur la 
portée (exemple : boucle 960-1000). 


Le hasard, lui, est géré par deux instructions RND et RAN- 
DOMIZE. Le paramètre de cette dernière instruction (ligne 240) 
est TIME / 1000. Pourquoi cette valeur ? Il semblerait que le fait 
d'aller chercher de profondes décimales influe sur le hasard. En 
effet la séquence aléatoire a plus de chance de se répéter avec 
un RANDOMIZE simple. Les voies du hasard sont impénétra- 
bles. 


Modifications 


Il est possible d'augmenter le nombre de notes de la sé- 
quence musicale (lignes 170, 370, 480, 510 et 610). Mais si vous 
voulez placer plus de neuf notes sur l'écran, il faut aussi dimi- 
nuer l'écartement entre l'affichage des notes (lignes 390 et 530). 


Si ce programme est utilisé par des enfants n'ayant aucune 
connaissance des notes de musique (il en existe encore 
quelques-uns !), il est souhaitable de faire rejouer la gamme 
plus souvent : 


— avant chaque jeu (lignes 830 et 840 : GOSUB 930 avant le 
GOTO) ; 

— en cas de première réponse erronée, avant de rejouer la 
séquence 
680 C—1 : GOSUB 930 
685 GOTO 490 


Par contre, avec des enfants ayant de bonnes connaissances 
musicales, on peut supprimer les lignes 960 à 1000, les notes 
apparaîtront ainsi sans leur nom dès le premier jeu. 


Adaptations 


Si vous préférez que l'AMSTRAD CPC vous joue de vraies 
mélodies, au lieu d'une suite de notes déterminée au hasard et 
dont l'harmonie peut paraître parfois douteuse, vous pouvez 
remplacer les lignes 370 à 430 la séquence aléatoire par une 
lecture de notes inscrites en DATA contenant les indices des 
notes de votre mélodie. 


Programme 
Kim Musical 








Organigramme 







Présentation 
du jeu 


Affichage de la 
portée, de la gamme, 
du nom, des notes et 
audition de la gamme 


Tirage au sort 
des notes 
de la 1° séquence 


Affichage de la portée, 
des notes, 
(Si jeu<3, du nom des notes) 
Audition des notes 










Tirage au sort 
de la note qui disparaît 


Affichage de la portée, 
des notes, 
(Si jeu<3, du nom des notes) 
Audition des autres notes 












Entrée 
de la réponse 
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non 


oui 


Affichage de la 
bonne réponse 








oui 
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1 HEM —---- Lo RSR ER EEE 
SU REM see KIM MUSICAL Free 
20 REM --- DiNielsen nov BE 


AU EM PHAUREAN jan 66 








5 Pa] F EM Gén mx ne daout néon sonepouvos Gino suis on Gé tes 

60 ON EKEAF GOSUR 880 

7 (Pa) F FE M v0000 van 000 00008 msn aneve 0600 vavee 000 ones 00000 anna 0066 noms 00000 annee 00e 9008 eee 0007 munee 0000 man mou 0000 enane eco menus 
60 REM + Module presentation 

o Q F4 FE M sènut: somme: evene cbtes roue ovem vont 0008 ofte unose dues sure eee comme sets 00608 m6 vues sares antee 
100 MODE 1:FAFER 1Z%:CLS:FEN @: PEN#T, 0 


110 WINDOWKHY,15,27,58,74 PAPER HS, Qi CLO#E 
120 WINDOWKZ,14,76,4, b: PAFERHT, 10: CLS#HS 
10 PEN#E, Qu LOCATEHS, 2,2 PRINTAS, MÉIM MUSTCAL" 
140 WINDOW#= ,28,11,22: FPAFERKS, Qi CLSHKT 
150 WINDOWKHS,4,77,10,21: FPAFERKS, 10: CLSHE 
160 LOCATE#T , 2,2: PRINTHS, "TU vas d'abord enten 
dr'& la gamme" 
17Q FRINT#HI,CHR#(10)3" Enguite, tu entendras u 
n morceau de 6 notes" 
180 FRINTHI,CHRE (10) 3" Fuis le meme morceau av 
ec une note en moins" 
190 PRINT#I,CHRE (10): A toi de retrouver cett 
e note et de la taper" 
200 af=INEEV#IIF af="" THEN 200 
= 1 Q REM ou00e 0000 00000 onuus 10000 me sas 06 ane 40e 0000 NE 0000 o000e 16000 000 0000 2020 DU DNS 006 0000 00008 000 0NaGe aude enbus 00000 avoue 60006 00m 
220 REM -* initialisation 
250 REM once me cote mue seen some cote some vo0m san vos son 0006 000 00900 mes ones 00e sonne eut0e oumus eomee ones om 0e annee tee none ooeee ces 0e 
. CLS: RANDOMIZE TIME/1000 + 
JO WINDOW#Z,5,37,4,233: PAFERKTZ, 0: CLSHKZ 
260 WINDOWHS ,4,%6,5, 22: PAPER#T, 10: CLO#T 
270 jeu=Q:DATA "DO",478,"RE",426,"MI",379,"FA" 
,258,"S0L",%19,"LA", 264, "SI",252 
280 FOR i=i, TO 7:READ notes tir. periode (i):NEX 
Ti 
à 29 Q R E M e000. murs mes meme otvee mece meme saoee 00e svœ0e note 0e anses 0008 n3008 eee 066 00008 mas mem eee evo ones 0000 00ane 00e 0 anate 00000 emnet t000 
300 REM -r Module 6 notes 
LA 7 À [ra] K E M anme sn00 v0000 m660 sème mate sn se me 00e tue une me me 00000 00000 20000 motte one tm ouate mes oo stone mené evo 00000 mme om mens mnt 
+20 GOSUE 910 + 
220 CLSHIS:LOCATEHRS,2,2: FRINTHSE, "Maintenant a t 
oi de jouer" 
340 PFRINT#Z," Appuie sur une touche" 
3950 afrINFEV#IIF af"! TMEN 250 
260 CLS#ä:ce0:GOSUR 1060 
27Q FOR ii TO 6 
260 Y=INT CKND#7) +1 
290 LOCATE#T, L+4xi , 17 y: FRINTHIZ,CHRE (276) 
40Q IF jeu THEN LOCATEHS, Ltd, 198 PRINTHS, mo 
te* (y) 
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410 SOUND 1,periode(y),40,1$ 
A42D dOi)reyenté(i)enotef (y) 
4MQ NEXT ji 

440 FOR ii TO GDOBG:NEXT 


AS REM = a mm me a Ne ce 
460 REM ++ Module 9 notes 
7 D ROM ose mie ST RE 


480 £= INT CRNDHS) 41 

490 CLOS: FARINTHSE," Voici une nouvelle musique 
avec à notes!" 

300 GOSUR 1060 

510 FOR ii TO 6 

De IF if THEN 5460 

iQ LOCATERS, 1+4xi,17-d Ci): FRINTHT,CHARE (276) 
DéQ IF jeuis THEN LOCATEHS, 14, 192 FPRINTHE mt + 
F (1) 

20 SOUND 1,periode(d(i)),40,15 

60 NEXT ji 

70 REM = ao sons con aan on a oo so on mm 

560 REM -5 Module reponse 

J9Q REM = ane cn ve a aux ou ane a on au on at mo om me 

600. LOCATE#S,2,3: INFPUT#Z, "Quelle est ta repons 

e ";repf 

610 FOR ii TO 7 

620 IF UFFERE (rep#)=note#(i) THEN SOUND 1,peri 

ode(i),40 

65Q NEXT ji 

640 IF UFFER#(rep#)znt#(f) THEN 600 

6S0Q IF cri THEN 720 

660 LOCATE #3,1,3:PRINT#E," Non, ce n'est pas 
c&la, ecoute une deuxieme fois" 

670 FOR i=1i TO SOOG:NEXT ji 

680 c=l:GOTO 490 

6%0 REM eût mans som sou eue tue vus eue em es nt umo em om um ou bte 00e 0e 0008 ets eo com cb me une me te moe moe vas 

700 REM -> Affichage bonne reponse 

710 REM m0. 00e same 0000 etes ans 0020 0406 nan 0000 1008 aus ante 200 0008 00006 anus 0000 0000 0008 onu 0006 0e 000 0008 nié 0008 NS one 0006 arme 

720 LOCATE#HZ,1,3: LPRINTH," Non, c'est encore + 

aux : 

750 FRINT#3," La bonne reponse etait !"int#(f) 

740 SOUND 1,periode(f#f),40,15 

730 ENT 2,=71,20,=:89,20,#71,20,*0,G:FOR ii TO 
3: SOUND 1,0,100,15,,2:NEXT i 

760 GOTO 810 

770 REM were see uns some +000 ess 4000 6008 anne cad 46006 pnus mn68e 000 606 een anus 00000 06e oo mme 0006 mm 000 06606 ann 0060 onoas ans 0008 ete 

780 KEM -5 Gagne 

790 REM mas ee 0000 ottee ce unn0e 0660 canne adé6e son0e and muse 000 0obué moe 9006 0oéte 00000 mme 000 an00é 0000 suame 0e oadS ounos 006 stone 6606 000 ed 

800 LOCATE#SZ,2,59:FRINTHS, "C'est exact" 

810 FOR i=il TO SQOG:NEXT ji 
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8:00 
8:50 
6840 
850 


vas 


860 
870 
880 
890 
900 
910 
920 
20 
940 
950 
960 
770 
780 
790 
18200 
1010 
1020 
1050 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


jeurjeut+i 
IF jeu THEN 360 
IF jeurS THEN 880 


CLSHIS: LOCATERHSE, 1,2: PRINTHE," Maintenant 
jouer sans lire le nom des notes" 

FOR izi TO 4QGB:NEXT ji 

GOTO 360 


CLS: LOCATE 10,1G:FRINT'AU revoir, ,.," 
END 
KR FE M muet monte ones ven somme mes co0e mem 60 mms ovete evn0t onoee os0ne 00000 oevan me00e ooues 06000 ovvus 40000 musee née 60000 onde 06 so008 00000 oname 00006 anus 
REM -* Module dessin de la gamme 
REM ont cours comes eue sones onu onu cuves cotes 00e me mes mme unes o0e0e etes onto oo 06 00608 00000 00508 00800 0400 00108 20809 60080 00088 aus ous 
CLS#HT:LOCATEXHS,11,2% 
FAINTH#Z,"Voici la gamme" 

GOSUB 104640 
FOR ii TO 7 
LOCATE#Z,1+4%1,17-i: FRINTHI CHR (256) 
LOCATE#HS,1+4%1,19:FRINT#E ,note#(i) 
SOUND 1,periode(i),40,15 

NEXT ji 

aFeINÉEY#: IF a$r"" THEN 1010 
RETURN 

REM eunes tune mouee omnes orme soie vrtoe mome moe soc annee omuet antes onoee evene 0000 00000 00100 armee oèoes ons ete anses mn ares n0008 10000 00008 00008 
KEM ++ Module dessin de la partee 
REM eomt sem set mé sat soc sec nee ee se ee moe sevve 20008 mate ane 08e 0008 008 00000 se ot 10000 00060 vav0à mu oran ee 
FOR i=1i TO 5 

FLOT 80,:00-:Q%xi,0 

DRAW 550,:00-50%*i,0 

NEXT ji 

RETURN 


tu 


AUTODICTÉE 


Thème 


Programme d'autodictée de cinq phrases courtes. 


Niveau 


A partir de 6 ans {Cours préparatoire 2° trimestre). 


Intérêt pédagogique 


Connaissances 


— comme pour un travail de dictée : savoir utiliser une ortho- 
graphe correcte. 


Savoir-faire 


— mémorisation des phrases ; 
— utilisation du clavier ; 
— esprit de synthèse en cas d'erreur précédente. 
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Déroulement 


Après le chargement du programme, l'adulte (enseignant ou 
parent) entre lui-même les cinq phrases sur lesquelles les en- 
fants vont travailler. 


Ensuite, le programme s'adresse aux enfants. La phrase est 
affichée et reste à l'écran aussi longtemps que l'enfant le sou- 
haite pour la mémoriser complètement (c'est lui qui relance la 
suite du programme). 


La phrase s'efface et l'enfant est invité à la taper. Lorsqu'il 
appuie sur la touche ENTER pour confirmer la fin de son texte, 
AMSTRAD CPC compare celui-ci avec la phrase donnée. Si le 
nombre de lettres ou d'espaces est différent, un message d’er- 
reur s'affiche. Si le nombre de lettres est le même, le texte de 
l'enfant est inscrit à l'écran et les fautes éventuelles sont visua- 
lisées par un symbole d'ogre souriant. 


Si le texte est exact, on passe à la phrase suivante, sinon 
l'enfant doit recommencer. Au bout de trois essais infructueux, 
la phrase correcte est affichée. 


A la fin du jeu, le score de l'enfant est commenté par 
l'AMSTRAD CPC. 


Commentaires 


60 Cette instruction permet de transformer la sé- 
quence de Break (ESC, puis ESC) en un GOTO 
effacement de l'écran et fin. 


100 à 210 Présentation du programme. 


280 à 310 Boucle de lecture des 5 phrases. L'instruction 
INPUT ne permet pas de lire les virgules. 


350 à 400 Préparation des 5 phrases, en vue de l'appel du 
sous-programme qui travaillera les phrases 
(GOSUB 530). 
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410 à 520 Affichage du score, des commentaires, et de la 
fin de jeu. Le jeu peut être relancé avec les 
mêmes phrases pour un autre enfant. 


530 à 570 Affichage de la phrase sur laquelle l'enfant va 
travailler et attente de la frappe d'une touche. 

580 à 640 Entrée du texte de l'enfant. 

650 à 680 Test de la réponse. Test de la longueur, puis 


analyse lettre à lettre (lignes 670 et 680) des 
deux phrases. 


710 Affichage (aucune faute). 

720 à 730 Affichage (nombre de fautes). 

780 à 790 Affichage du texte exact si l'enfant en était à 
son troisième essai. 

830 à 920 Sous-programme d'analyse de la longueur des 
phrases. 

930 à 960 Sous-programme musical et graphique. Il af- 


fiche le petit ogre à la place des fautes et joue 
une musique. 


Particularités techniques 


Il serait dommage de faire des fautes d'orthographe dans un 
programme de dictée ! C'est pourquoi la ligne 430 ainsi que 
720-730, 780-790 et 860-870 tiennent compte de la valeur des 
variables T, K et X afin de ne pas afficher « 1 FAUTES » ! 


Dans le test réponse, la ligne 650 compare la longueur des 
phrases puis, si les deux phrases ont le même nombre de lettres, 
celles-ci sont analysées une à une à l’intérieur de la boucle des 
lignes 660 à 680. 


Ce programme, comme « Soutien » où « Le train capricieux » 
fonctionne sur des données qui sont introduites au début du 
programme. Cela permet d'utiliser des phrases correspondant 
au niveau des enfants (voir le paragraphe « adaptations »). Mais 
il ne faut pas interrompre le programme (touche ESC puis ESC) 
car on doit alors entrer de nouveau les phrases. 
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Modifications 


Comme dans « Soutien », on peut supprimer le commentaire 
du score (lignes 450 à 470). 


Il est intéressant, lorsque les phrases sont relativement 
longues et utilisées par des enfants ayant des difficultés en or- 
thographe, de « ressortir » la phrase modèle sur l'écran avant 
un nouvel essai car il arrive parfois qu'il y ait plus de fautes 
encore au 3° essai qu'au 1°’, si la mémoire du joueur est fragile. 
Il faudrait ajouter : 


745 PRINT #2, « Relis bien la phrase » 
746 LOCATE 2, 2,9 : PRINT +#2, v$ 


Le nombre d'essais possibles (variable M) peut être réduit à 
deux, où au contraire augmenté en modifiant les tests portant 
sur la valeur de M dans les lignes 600 et 720-790. 


Adaptations 


Certains programmes d'autodictée utilisent des phrases ins- 
crites en DATA. Ici, l'entrée des phrases en début de pro- 
gramme, si elle présente quelques inconvénients techniques, 
donne une plus grande liberté d'adaptation au niveau des en- 
fants, par exemple : 


— phrases très courtes, étudiées en lecture, en C.P. ; 
— phrases d'une dictée déjà faite, ou à faire ensuite, et qui 
comportent certaines difficultés particulières, en C.M. 


Il serait aussi possible de constituer un fichier de phrases, sur 
cassette ou disquette, et de « piocher » dans celui-ci ce qui ré- 
duirait le temps de mise en route du programme. 


Enfin, dans une école, lorsque plusieurs enfants utilisent le 
programme en « libre service », il est utile de garder une trace 
de leurs erreurs, à l’aide de l'imprimante, par exemple : 


791 PRINT #8, v$, m$ 
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Programme 






Entrée des cinq 
phrases par l'adulte 


autodictée 


Entrée du prénom 
du joueur 


Affichage de la phrase 
lecture par le joueur 














Phrase effacée 
l'enfant entre 
sa réponse 









réponse : comparaison 
de la longueur des phrases 


À 


Message d'erreur Comparaison 


Longueurs inégales Longueurs égales 


lettre par lettre 













M=3 
(nombre de 
réponses) 


non 


oui 
non 


Affichage phrase 


exacte 





oui 





Fin de jeu 
(score) 


Organigramme 


ntr 
170 
180 
pat 
190 
ser 
200 
he 
210 


220 


700 
310 
22 

230 
340 
250 
360 
PPFE 
270 
3:80 
390 
400 
410 
420 


AMSTRAD A L'ÉCOLE 


REM = mm ne 

REM —-—-—— AUTODICTEE —------ 

REM —--- D,Nielsen nov 85 --- 

REM ---— Augustin fev 86 --- 

REM ue neue me ee meme ae a mo me 

ON BREAK GOSUB 520 

REM eue ce mue ae ae eme eee ou oo oo 
REM -5 Module presentation 

REM = men me nee eee oo oo os 


MODE 1:FAPER 13:CLS:PEN Q 
WINDOW#3,15,27,5,7:PAFERKS,0:CLS#3 
WINDOW#3,14,26,4,6: PAFERKS,10:CLSHK3E 
WINDOW#2,5,38,11,22:FAFERK2,0:CLS#? 
WINDOW#2,4,57,10,21:FAPERK2,10:CLSK2? 
FEN#HT,0:LOCATE#RS,2,2:PRINTHS, "AUTODICTEE" 
PEN#2,0:LOCATE#K2,2,2:FRINT#2,"Vous allez e 
er votre texte" 
LOCATE#2,12,4: PRINT#2, "Attention" 
LOCATE#2,2,6:FRINT#2,'""Deux lignes maximum 
phrase" 

LOCATE#2,2,8:PRINT#2,"I1 ne faut pas utili 
"," de virgule" 
LOCATE#EZ,2,11:PRINT#2,'"Appuie sur une touc 


1FeINÉEVS:IF i$='"" THEN 210 ELSE CLS#K? 
b#(1)="Fremiere":b#(2) ="Deuxieme" 
b#(T)="Troisieme":b#(4)=''Quatrieme" 


b#(S5)="Cinquieme" 

REM eee ee come a ee om om 
REM -> lecture des phrases 

REM = 
FOR i=i TO 5 

FRINT#2,b#(i)3" phrase! 
INPUT#2,a#t(i) 

NEXT ji 

REM = oo oo eo en a on mo a ne 
REM —-; Module jeu 

REM = ee ee om en 
CLS#K2 


INFUT#2,'"Quel est ton prenom "inomé:nomé=l 
R# (nom#) 
t=Q:x=0 


FOR j=i TO 5 
vE=a#(j):GOSUR 530 
NEXT j 

CLSHE 


FRINT#2,'"Ton score est de'";#3;"faute'": 
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43Q IF xr1 THEN PFRINTH#2,'"s" ELSE FRINT#2 

440 FRINT#2 

450 IF #25 THEN PFRINT#2,'"C'est tres bien" 

460 IF x%=5 AND x<1Q THEN PRINT#2,'"C'est un bo 
n resultat" 

470 IF x:1Q0 THEN FRINT#2,'"I1 faudra etre plus 

attentif","la prochaine fois" 

480 FOR i=i TO 6@BDB:NEXT ji 

490 FRINTH2:PRINTÉKHZ, "Un autre exercice ( o / 

(OR PR 

500 if=INÉEY#:1F i$="" THEN S00 

510 IF i+t="0" OR i$="o" THEN 2S0 

520 CLS:PRINT "Au revoir !"'snom#: END 

920 CLSHK2 

240 mrQ:t=0 

560 PRINTHS,"TU vas lire cette phrase","lorsqu 
æe tu la connaitras bien'",'"appuie sur une touch 
e" 

260 FRINTHSZ: PRINTHS, VE 

J70 1FeINÉEVHIIF i#e"" THEN 570 

JU Had t 

90 txQ 

600 IF mx THEN 760 

610 CLSHE 

LÈO FRINTH2, "Tape le texte sans oublier",'"la p 
onctuation" 

D FRINTHE, "Appuie sur ENTER" ,"lorsque tu aur 
as fini" 

840 INFUTH2,m# 

650 IF LENCm#)2%LENCV#) THEN GOSUR 8:0:GO0OTO0 58 
(4 

660 FOR ii TO LENCV#) 

67Q IF MID#(m#,i,1)=MID#(vV#,1,1) THEN FKRINT#2, 
MIDÆCVÆ,1i1,1)3 ELSE GOSUR 9370 

68Q NEXT i 

690 FRINTH#E 

708 m=m+i 

710 IF t=Q0 THEN FRINT#E,"Tu n'as fait aucune + 
aute "snom#s; "C'est tres bien":GOTO 800 

720 IF t:1 AND m£3 THEN FRINTH2,"TU as fait''st 
s'fautes "inomé 

750 IF t=i AND m#5 THEN FRINTH2,"TU as fait'st 
j'faute "isnomé 

7A4Q IF tz=1 AND mi3 THEN FRINT#Z,nom#;", tu pe 
ux recommencer" 

75Q LOCATE#Z,2,11: FRINT#2,'"Appuie sur une touc 
he! 

760 i$f=INÉHEY#:IF i$="" THEN 760 ELSE CLS#2 
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770 IF t>Q AND m£3 THEN 5680 

78Q IF tr1 AND mz3 THEN FRINT#2,"Voici le text 

e exact':PRINTHE,VH: PRINT#HZ, "EU as fait'i;sts "fa 

utes" 

790 IF tzi AND m=3 THEN FRINT#2,"Voici le text 
e exact''sPRINTHR, VS: PRINT#H2,"tU as fait'sts "fa 

ute" 

80Q x=x+t 

810 LOCATE#HZ,1,11:FRINT#2,'"Appuie sur une touc 

he!" 

820 1#=INFEV#: IF 14e" THEN 820 ELSE RETURN 

6:30 CLSHE 

84Q FRINT#2,'"TU as fait une erreur !",'"Ton texte 
n'a pas le meme nombre'",'"de lettre que le pre 

mier'","Il faut recommencer !" 

650 KwLEN (VH)-LEN (m#) 

860 IF kil THEN FRINTHZ,"IL manque'"sk;"lettres 
"dans ton texte'"":GOTO 900 

870 IF kel THEN FRINTH2Z,"IL manque'"sks "lettre" 
dans ton texte'": GOTO 900 

880 IF késel THEN FRINTKH2,'"Ton texte a'!':ABS (CH) 
s'lettre'!"s 

890 IF kel THEN FRINTH#2," de trop" ELSE FKRINT 
#2 ,'"s de trop" 

9OQ trt+le meme 

910 LOCATE#Z,1,11: FRINTHSE, "Appuie sur une touc 
he" 

QUO LHmINEEVEÆSIF if THEN 920 ELSE RETURN 
9IQ FRINTHR,CHRE (224) à: 

4 SOUND 1,200,10,15 

9SQ tet+l 

960 RETURN 


SOUTIEN 


Thème 


Jeu de questions à réponses multiples (deux séries de quatre 
questions), les sujets de ces questions-réponses sont entrés par 
l'adulte en début de programme. 


Niveau 


À partir de 6 ans —- toutes matières. 


Intérêt pédagogique 


Connaissances 
— jeu de contrôle ; 


— exercice de révision de notions déjà abordées. Vérification 
des acquis. 


Savoir-faire 


— choix entre plusieurs réponses (élimination des réponses 
déjà données). 
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Déroulement 


L'adulte (enseignant ou parent) va d'abord entrer les huit 
courtes questions et leurs réponses. Ces éléments sont groupés 
en deux séries de quatre. 

Ce programme permet d'aborder tous les domaines : 


— Français : grammaire, conjugaison, vocabulaire, ortho- 


graphe, etc. 
- Maths : opérations, calcul mental. 
- Eveil : évaluation des connaissances en histoire, en 


géographie, sciences, etc. 
Ensuite, l'enfant va travailler sur ces données. 


Quatre réponses sont inscrites. Une question apparaît, le 
joueur doit déplacer le curseur devant la réponse qu'il pense 
être juste. Pour monter tapez 1, 0 pour descendre, barre d'es- 
pace pour valider. En cas d'erreur, la bonne réponse est affi- 
chée. 


Le prénom du joueur et son score sont affichés en haut de 
l'écran. 


Il en va de même pour les trois questions suivantes. Ensuite, 


une nouvelle série de quatre questions apparaît, et le jeu conti- 
nue. 


A la fin, le score total est indiqué et commenté. Le joueur est 
invité à aller chercher un camarade pour le remplacer. 


Commentaires 


100 à 180 Présentation du programme. 
190 à 550 Entrée des données. 
590 à 700 Présentation joueur. 


740 à 1000 Jeu. 

1040 à 1120 Score — fin de jeu. 

1160 à 1230 Place aléatoire des réponses. 
1270 à 1430 Gestion réponse. 
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Particularités techniques 


Afin d'éviter une accoutumance à ce logiciel (au bout de trois 
ou quatre utilisations, l'enfant sait vite que la réponse à la 1" 
question est celle de la 2° ligne, et ainsi de suite), un nombre 
aléatoire détermine la place des réponses. 


Dans sa version actuelle, le programme ne doit pas être in- 
terrompu (par l'appui de ESC puis ESC) sous peine de devoir 
retaper les questions et les réponses. 


Enfin, ces données peuvent être sauvegardées sur cassette 
(ou disquette). || suffit de les écrire sur le support avec les ins- 
tructions OPENOUT, OPENIN ET PRINT #9. 


Modifications 


Les commentaires du score final (lignes 1060 à 1080) peuvent 
être considérés comme trop rigoureux si ce programme est uti- 
lisé à la maison. 


Adaptations 


Un tel programme peut aussi être utilisé entre adultes sous 
forme de jeu pour tester les connaissances de vos amis sur les 
résultats du tournoi des cinq nations ou des Jeux Olympiques ! 


Si vous voulez éviter d'avoir à taper les données lors de 
chaque nouveau chargement, il faut supprimer les lignes 190 à 
550 et entrer : 


190 Q$(1)=« votre question » 
200 R$(1)=« sa réponse » 
210 etc. 


Vous devrez ensuite sauvegarder sur cassette ou disquette ce 
nouveau programme. 


Si les instructions d’entrées-sorties de fichiers n'ont plus de 
secret pour vous, vous pouvez modifier ces lignes afin d’avoir, 
à côté du programme de base « soutien », un fichier sur cas- 
sette, disquette contenant différentes séries de questions-ré- 
ponses. 
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D'autres séries de quatre questions et réponses peuvent être 
ajoutées : il suffit de modifier la ligne 930 : 


930 IF JEU—13 … (exemple pour quatre séries) 


et de dimensionner les tableaux Y,O$ et R$ en début de pro- 
gramme. 


Il faut aussi prévoir d'entrer ces nouvelles séries en début de 
programme, ce qui devient très long ! En fait, il n'est intéressant 
d'ajouter des séries que si l’on travaille à partir d'un fichier de 
questions enregistrées. 


Enfin, on peut donner une nouvelle possibilité de réponse en 
cas d'erreur, en modifiant la ligne 1400. 


Tel qu'il est présenté, ce programme a été conçu pour être 
utilisé par des enseignants n'ayant aucune notion de program- 
mation. 
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Programme 


Entrée des 2 séries de 
4 questions et 
leurs réponses 


Titre des séries 


Place aléatoire 
des réponses 


soutien 





Explication du 
jeu et entrée du prénom 
du joueur 







Affichage des 4 
réponses de la question et 
du score du joueur 


Réponse joueur 





Test réponse 












Faux 
T=T-1 
(score) 


Exact 
T=T+2 
(score) 












Affichage de la 
bonne réponse 











Nombre 
de questions -8 


Fin de jeu 
score final-commentaire 


Organigramme 


34 | AMSTRAD A L'ÉCOLE 


LO'REM esssSsssesess== Sets 

2Q REM ------—- SOUTIEN -—-- 

30 REM --- D,Nielsen jun 835 —-- 

40 REM --- Augustin fev 86 --- 

DQ REM ee nee ne nee ae me ee 

6Q ON BREAK GOSUR 1120 

70 REM == ne an os eo a nm 
80 REM -# Module lecture des phrases 

QQ REM s600 am v060 none ouve 0660 une mms tm mue tu rome 0000 coms otves moe 0000 eue arm 2300 tt ame 2000 anne mme 006 net 1308 0006 vom 0800 eve 


100 MODE Z:FAFER 13:PFEN Q:CLS 

11Q LOCATE 2,2:PRINT "SOUITEN" 

120 LOCATE 2,S5S:PRINT "Ce programme va demander 
de choisir entre quatre reponses'",!" pour quat 

re questions posees separement' 

130 LOCATE 2,7:PRINT "IL y a deux series de qu 

estions" 

140 LOCATE 2,9:FRINT "L'ordre des reponses n'°'e 

st pas toujours le meme’ 

150 LOCATE 2,11:FRINT "Vous allez d'abord entr 

er les questions et les reponses'"," qui vont 8 

ervitr au jeu" 

160 LOCATE 2,1ZT:FRINT Attention , il ne faut 

pas que, dans chaque serie,"," il y ait deux r 

eponses identiques! 

17Q LOCATE 2,24:FRINT "APFUYEZ SUR UNE TOUCHE 

FOUR CONTINUER" 

180 iF=INHEV#:IF i#="" THEN 180 ELSE CLS 

19Q LOCATE 10,6:FRINT "'iere serie!" PRINT 

200 LOCATE 2,8:PRINT "Tapez la premiere phrase 
( où question )'"sFRINT 

210 INPUT q#(1) 

220 FRINT " Maintenant sa reponse + ENTER" 

230 INPUT r#(1) 

240 FRINT " Deuxieme phrase" 

250 INPUT q#(2) 

260 FRINT " Sa reponse" 

270 INPUT r#(2) 

280 FRINT " Troisieme phrase" 

290 INPUT qg$(3) 

300 FRINT " Sa reponse" 

310 INFUT r#$(3) 

320 FRINT " Quatrieme phrase" 

370 INPUT q#(4) 

340 FRINT " Sa reponse 

350 INPUT r#(4) 

260 CLS:LOCATE 10,6:FRINT "2eme serie!":FKRINT 

370 LOCATE 2,8:PRINT "Tapez la cinquieme phras 

e ( ou question )":PRINT 


380 INPUT qg#(5) 

390 FRINT " Sa reponse" 

400 INFUT r#(5) 

41Q FRINT " Sixieme phrase" 
420 INFUT qg#(é6) 

sQ FKRINT " Sa reponse" 

440 INPUT r#(é) 

450 FRINT " Septieme phrase" 
460 INPUT qg#(7) 

47Q FRINT " Sa reponse 

48Q INFUT r#(7) 

490 FKRINT " Huitieme phrase" 
3500 INFUT qgf(6) 
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210 FRINT " Sa reponse" 

J29 INPUT Fr#(0) 

930 CLS 

540 LOCATE 2,9:PRINT "Donner un titre a cette 

serie" 

5930 INPUT titre 

S6Q REM ee nee eee ae ae ee 

97Q REM -5 Module jeu 

SQD. REM nes se pee res ses 2e eee Et en de on ns 

590 MODE 1:CLS 

600 RANDOMIZE TIME/1000 

61Q LOCATE 2,5:PRINT "Tu vas avoir le choix ", 
"entre quatre reponses"," Indique la bonne re 
ponse''," avce le curseur" 

620 FRINTI:FRINT " Les touches de deplacement s 
ont :" 

850 FRINT " -% 1 pour monter" 

&64Q PRINT " -5 Q@ pour descendre" 

650 FRINT " -} Barre d'espace pour valider" 


660 FRINT: INPUT " Quel est ton prenom 


oMmMÉ=UPPERS (nomé) 


"snoméin 


67Q LOCATE 2,24:PRINT "APPFUIE SUR UNE TOUCHE PF 


OUR CONTINUER" 


680 1FrINKEY#:IF i#="" THEN 680 ELSE CLS 


6890 jeusi:st=Qih=Q 
700 GOSUB 11460 


71Q REM = 


720 REM -* Module iere serie 


72Q REM 


74QG FOR isjeu TO jeu+si 

750 GOSUB 1270 

760 LOCATE 2,16:FRINT q$(i) 

77Q j=6 

780 LOCATE 8,j:PKINT CHR#&(224) 
790 i$=INKEY#:IF i$="" THEN 790 
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800 IF i$:>"1" AND i$:>"@" AND i$<>" " THEN SO 
UND 1,400,20,15:GOT0 790 
810 IF it=" " THEN 880 


20 LOCATE 8,j:PRINT " " 
850 IF i+$="Q" THEN j=j+2 ELSE j=j-2 
84Q IF j=4 THEN j=12 
85Q IF j=1i4 THEN jxé 
860 SOUND 1,100,10@,15 
87Q GOTO 780 
880 s=-5*x(j=6)-6#(j=8)-7#(j=10)-8+x(j=12) 
890 IF i=y(j-s+h) THEN GOSUB 1350 ELSE GOSUB 
1:90 
900 FOR k=i TO 6SOBG:NEXT K 


910 CLS 

920 NEXT ji 

YIQ IF jeu=Ss THEN 1040 

QAQ REM me ae ae me me oo et os 
950 REM -5 Module eme serie 

Q6Q REM ee ae a me me ee ne oo ot 
97Q jeu=jeu+4 

980 h=4 


990 GOSUB 11350 

1000 GOTO 740@ 

1010 REM eee ie eee ee de aan mme où un on mes 

1020 REM -% Module fin du jeu 

LOSQ. IREM ER sen be ps Se em D 

1040 CLS 

1020 LOCATE Z,2:PRINT nom#:;" ton score est de" 
t;"point(s)" 

1060 IF t3=1S THEN PRINT:PRINT " C'est tres bi 

en LL 

107Q IF t<1S AND t+8 THEN FRINT:PRINT " C'est 


pius",'" attentif la prochaine 


DiErs mais S015 
fois" 

1080 IF tie THEN FRINT:FRINT "Il faudra revo 
ir le travail"," correspondant a cet exercice" 
1090 LOCATE 2,2G:FRINT "Le meme exercice ( © / 
mn) 


1100 iFxINÉEVEÆs IF jiÆæ "THEN 1100 

1110@ 1F i$="O0" OK ifs'o" THEN 590 

1120 MODE 1:FKRINT Ha PEN RENE 

LITO REM se ie mue sue mue mue ue mu ae ou aan ame av ao a an a a te mu ao om ne 
1140 REM -% Module place des Pepanees 

1 1 LEA Q FX E M same situe me o0108 om man coûté sème con 6000 0e 0006 00000 s02n8 one aa0ës annee ones oûoee conne oûane ouaae oomus A0008 0000 06006 00008 oou0n aooue 6600 


1160 FOK isjeu TO jeut+z 
1170 y (i)=INT C(RND%x4) + jeu 
1180 IF ijeu THEN 1220 
1190 FOR krjeu TO i-i 

1200 IF y(Ci)æy(k) THEN 1170@ 
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1210 NEXT E 

1220 NEXT i 

12750 RETURN 

sl DVAQ REM = me me me me mu ae ane ce ao mu mu me ue ae ae os mue ae ea tee ae 

1250 REM -* Module affichage reponses 

1 D és Q F E M one rome t00 cos mans 0800 nt saone s004 vote sous mme 06066 mes one anvue 00000 ne bee m00e met on 00606 mois sou nn une es anne nome 

1270 CLS:LOCATE 2,2: PRINT titre 

1260 FOR kæ1i TO 4 

1290 LOCATE 10,kx24+4 

1500 afsk+jeu-i 

1310 PRINT r#(y(af))35" 7%" 

1320 NEXT k 

1250 LOCATE 30,1:FRINT "Score : "it 

154Q RETURN 

1550 FOR kæ=i TO 200 STEF 10@:SOUND 1,k,1QD,I1S:NE 

XT k 

1360 LOCATE 2,20:PFRINT "C'est exact "isnomf 

137Q t=t+2 

1:8Q RETURN 

13590 FOR k=300 TO 1 STEF -1@:SOUND 1,k,1@,15:N 

EXT k 

1400 LOCATE 2,20:PRINT "Tu n'a pas trouve "ino 

m* 

1410 LOCATE 2,22:FRINT "La bonne reponse etait 
Mar(i) 

1420 t=t-i 

1470 RETURN 


SAFARI 


Thème 


Exercice d'entraînement au calcul rapide sous forme de jeu. 


Niveau 


À partir de 6 ans. 


Intérêt pédagogique 


Connaissances 
— vérification de la connaissance des tables d’'addition ou de 


multiplication et du mécanisme opératoire ; 
— entraînement au calcul mental. 


Savoir-faire 


— rapidité de calcul ; 
— habileté de commande au clavier. 


40 | AMSTRAD A L'ÉCOLE 


Déroulement 


C'est une course de vitesse avec un lion. « Tu es sorti de ta 
voiture pour photographier un lion endormi. Il vient de se ré- 
veiller et te regarde. Tu vas devoir répondre aux opérations 
proposées. Si tu réponds bien, tu avances vers ta voiture. Si tu 
te trompes, ou si tu ne réponds pas assez vite, le lion vient vers 
toi pour te manger. » 


À chaque bonne réponse, le temps de réponse diminue. 


Le jeu s'arrête lorsque le joueur a regagné sa voiture ou a été 
mangé par le lion. 


Commentaires 


100 à 180 Présentation du jeu. 

220 à 310 Niveau du jeu. 

350 à 630 Création et affichage du lion, du bonhomme et 
de la voiture. 

670 à 800 Test de fin de partie et affichage de l'opération. 

840 rest le résultat. 

850 à 900 Boucle chronomètre, avec un GOTO 930 en cas 
de réponse. 

910 à 920 Pas de réponse, alors affichage de la réponse 
et appel de la procédure qui fait avancer le lion. 

930 à 1010 Test des réponses (unités et dizaines). 

1020 à 1090 Mauvaise réponse, affichage de la bonne ré- 


ponse, le lion avance et la partie continue. 


1100 à 1150 Bonne réponse, le bonhomme avance et on 
continue la partie (ligne 1150). 


1190 à 1260 Fin de partie, dans le cas favorable. 
1300 à 1320 Fin de partie au fond de l'estomac du lion. 


Les trois niveaux de jeu correspondent à : 


1 = Résultat < 9 
2 = Résultat < 19 
3 — Résultat < 39 
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Particularités techniques 


Le graphisme des trois dessins est réalisé par des caractères 
reprogrammés. Il est assez long à taper mais il pimente cet 
exercice de calcul mental d'une course contre la montre (l'ins- 
truction pour redéfinir un caractère est SYMBOL). 


Le temps de réponse (variable S) diminue à chaque réponse 
exacte : 6 secondes au début, 3 secondes lorsque le joueur est 
presque arrivé à sa voiture. || est visualisé par un chronomètre 
en haut de l'écran. 


Modifications 

560 « Temps de réponse de base ». Il peut être al- 
longé en le modifiant. 

700 à 710 

740 à 750 Modifient les niveaux de jeu. 

770 à 780 

Adaptations 


En modifiant les lignes de niveau de jeu 700 à 780 et la ligne 
840, on peut facilement transposer ce jeu en des exercices de 
soustraction, de multiplication ou de division. 


Exemple pour la multiplication : 
700 A=RND(15) 
710 B=RND(9) 


740 A=RND(20) 
750 B=RND(12) 


840 R=A*B … 
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Programme 


. ER 






Choix du niveau 
de jeu 








#.- 
Test de fin de jeu 


Dessin des personnages 


(sous programme) 

















Affichage d'une 
opération 


Pas de réponse 


Réponse 





Exact 
Le bonhomme avance 


Le lion avance 


Le lion est au même 
endroit que le 
bonhomme : Perdu ! 





Le bonhomme est 
dans sa voiture 
Gagné ! 





Organigramme 
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19 REM 

20 REM ------—- SAFARI -—-—--—--—- 

30 REM --- D,Nielsen nov 83 --- 

40 REM —--- Augustin fev 66 —--- 

SD REM vu au au cos oc one mue eme 

6@ ON BREAK GOSUB 1260 

70 REM eh cube che CS enite eue ent ueis ln te ent eut, te 2806 2080 Caves Guen oies nues coûte Cotes cent tentes mener men ns mue 
80 REM -% Module presentation 

PO: RE M: 5 sn eren eo re no 


10 MODE 1:FAFER 13:PEN @:CLS 

11Q RANDOMIZE TIME/1000 

120 LOCATE 3S,2:PRINT "COURSE DE VITESSE AVEC U 

N LION" 

130 LOCATE 2,4:PRINT "Seule ta rapidite a trou 
ver'!," les reponses aux operations," proposee 

s peut te sauver" 

140 FRINT:PRINT " Tu es sorti de ta voiture"," 
pour photographier un lion endormi"," il vien 

t de se reveiller" 

150 FRINT:PFRINT " Tu vas devoir repondre aux", 
!" operations proposees" 


160 PRINT: PRINT " Si tu reponds bien,"," tu av 
ances vers ta voiture 
170 PRINT " Si tu te trompes,'"," le lion vient 


vers toi pour te manger" 

180 PRINT:PRINT " A chaque operation le temps" 
," de reponse diminue 

190 REM mms eee ne meme me mem me ou me a 

200 REM -> Module debut du jeu 

21Q REM mm mme me mue me me men ee em 

220 LOCATE 2,24:FRINT "AFFUIE SUR UNE TOUCHE F 
QUR CONTINUER" 


220 1i$fsINÉEY#:IF 14m"! THEN 250 

240 CLS 

250 LOCATE 5,5:FRINT "NIVEAU DE JEU" 

260 LOCATE 5,7:PRINT "FACILE... .., L! 

270 LOCATE S,9:PRINT MMOYEN,.,.,,,,,2" 

280 LOCATE S,11:PRINT "DIFFICILE..,3" 
290 LOCATE 5,13: INPUT "Ton choix "schoix 


200 IF choix<1i OR choix?>3 THEN 240 

41Q LOCATE 5,15: INFUT "Quel est ton prenom "sn 
OM: NoMÉ=UPPERE (nom) 

220 REM mean os a area on a eo 

330 REM -} Module affichage 

40 REM eme mn mme me en can ne ae eo ee 

350 MODE OQ:PFAPER 5:CLS 

360 p=9:mzi 

37Q SYMBOL AFTER 279 

380 SYMBOL 240,0,1,2,4,5,5,237,36 
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390 
400 
410 
420 
4TQ 
440 
450 
440 
470 
480 
490 
500 
510 
520 
530 
540 
550 
5460 
570 
580 
590 
600 
610 
420 
bE 

640 
850 
&660Q 
870Q 
680 
690 
700 
710 
720 
73 

740 
750 
760 
77Q 
780 
790 
800 
810 
820 
850 
840 
850 


SYMBOL 241,248,4,114,177,88,77,237,177 
SYMEOL 242,66,92,160,192,131,156,154,126 
SYMEOL 247,114,4,8,40,208,144,72,1068 
liont(1)-= =CÈRE (240) LCHR# (241) 
liont(2) =CHR£ (242) +CHRS£ (247) 

SYMEOL 244,49,19,18,19,9,4,3,1 

SYMBOL 245,192,224,1600,224,64,128,224,208 
SYMBOL D nd D 1,3,4,8,80,96 

SYMBOL 247,202,198, 192,224, 16,8,5,3 
enfanté (1) =CHR# (244) +CHRE (245) 
enfant$ (2) =CHR# (246) +CHR# (247) 

SYMEROL 248,0,0,255,128,128,128,128,255 
SYMEOL ns Q "D,224,32,22,%2,22, 754 
SYMBOL 250,172,172,172,132,255,156,68,56 
SYMBOL ne ,294,17:0,68,56 
vehi#(i)=CHR#(248) +CHR#(249) 
vehit(2) =CHR# (250) +CHR# (251) 

sr38:v=0 

FEN 1 

LOCATE 1,8:PRINT liont(1) 

LOCATE 1,9:FRINT lion$(2) 

LOCATE 10,8:FRINT enfant#(1) 

LOCATE 1G,9:PRINT enfant#(2) 

LOCATE 19,8:FRINT vehi#(1) 

LOCATE 19,9G:PRINT vehit(2) 

REM, 2 2e bebe no 2 ss 2 es a 
REM —-; Module jeu 

REM a eos pe be De D 2 
IF m=p THEN 17:00 

IF p=1i9 THEN 1190 

VEV +1 

ON choix GOTO 710,740,770 

a= INT (RND#9) 

D=INT (RND#(9-a) )+1 

GOTO 790@ 

a=INT(RND#19) 

b=INT(RND#(19-a) )+1 

GOTO 790 

a= INT (RND#:9) 

BÆ INT (RNDx(Z9-a) )+1 

LOCATE 1,14:PRINT SPACE#(19) 

LOCATE S,14:PRINT a;'"+"sbps"=" 

REM esse eine nee in ps dei em re me de 
REM -* Module reponse 

REM Eee mes Se es en ES een ne 
r=a+b 

FOR i=i TO s 
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860 LOCATE 2,2:PFRINT "  ":LOCATE 2,2:PRINT i 
870 rep#f=INKEY#S:IF rep#f<:"" THEN 920 

880 SOUND 1,4G0-INT(RND*200),5,15 

890 FOR j=i TO 1O0:NEXT j 

900 NEXT i 

910 LOCATE 15,14:PRINT r 

920 GOTO 1050 

9230 IF r}9 THEN 960@ 

940 rep=VAL(rep#$):LOCATE 13,14:FRINT rep 
Q9$SQ IF re=rep THEN 1100 ELSE 1020 

960 dz=VAL(rep#) 

970 Fh#=INKEYS:IF rp#=z'"" THEN 960 

980 unit=VAL (rp#) 

990 rep=sunit+iQxkdz 

1000 LOCATE 15,14:FRINT rep 

1010 IF repzr THEN 1100 

1020 LOCATE 1,24:PRINT SPACE*#(39) 

1070 LOCATE 1,24:PRINT "FAUX ! C'etait'ir 
104Q FOR i=i TO 1QOBG:NEXT i 

105Q LOCATE 1,24:PRINT SPFACE#(:9) 

1060 LOCATE 2,24: PRINT "ATTENTION AU LION" 
1070 m=m+2: LOCATE m-2,8:PRINT "  "sliont(i):LO 
CATE m-2,9:PRINT "  "sliont(2) 

1080 FOR i=i TO 2QOB:NEXT i 

1090 GOTO 670 

1100 LOCATE 1,24: PRINT SFACE#(:9) 

1110 LOCATE 1Q,24:PRINT "OUF !" 

1120 p=p+2:LOCATE p-2,8:PRINT "  "senfant#(1): 
LOCATEÉ p-2,9:PRINT "  !senfantét(2) 

1150 s=s-2?7 

1140 FOR i=i TO 2O0G:NEXT i 

1150 GOTO 670 

1 L és à F [Es M 000 sétes a6d0e s5006 cuve 0608 conte dé we 2666 0068 entes Gène 00e bb nb 0986 be. 0606 000 2000 008 sets nes aan Démté tensions 
1170 EM + Module gagne 

{ 1 re Q Fe FE M ontee ame mette nasue moëné sovus one mou outae au vetme mets soute 0e maout moe ones ee sum onde mont sue de sente man moe voue annee on dot 
1190 CLS 

1800 LOCATE 2,S:FRINT nom#f;" C'est gagne" 
1210 FRINTEMAINT " En's vs "operations" 
1220 FOK ix100 TO 100 STEF 10 

1250 SOUND 1,i,5,15 

1240 NEXT à 

1290 FOR il TO 2OGO:NEXT ji 


1260 MODE 1: FEN @:CLS: END 
170: PEM: Sea den ere eme Ne ne 


1290 RKEM +: Module perdu 

1 « Le Q FX E M spthà 15608 60635-00000 10006 some eut sata aides védas eme 1é vsdo. Vaui-600 sb dé c00ie obéen sdaÿ 20bES BAM 26066 /aénee m5 eus ou dinde une 86e 
1300 CLS 

11H10 LOCATE 2,S8:FRINT nomfs;" au revoir" 
1320 GOTO 1220 


LECTURE RAPIDE 


Thème 


Test de lecture globale de mots : dix mots s'inscrivent rapi- 
dement (l’un après l'autre) puis douze mots s'affichent en- 
semble sur l'écran. Il faut trouver les deux intrus en répondant 
à l'aide du clavier ou de la manette de jeu. 


Niveau 


A partir de 7 ans (fin de Cours élémentaire 1° année et au- 
delà). 


Intérêt pédagogique 
Connaissances 


— reconnaissance globale de mots ; 

— entraînement à la lecture silencieuse ; 

— Utilisation d'informations recueillies rapidement à la suite 
d'une activité. 


Savoir-faire 
— mémoire visuelle ; 


— durée d'attention ; 
— déplacement dans les mots à l’aide de la manette. 
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Déroulement 


Après entrée du prénom du joueur, 10 mots vont s'inscrire 
l'un après l’autre, au centre de l'écran, pendant une seconde. 


Puis une liste de 12 mots (les 10 précédents, plus 2 « intrus ») 
s'affiche (dans des couleurs différentes). Le joueur déplace un 
curseur à l'aide des touches “0” et “1” ou de la manette, et 
appuie la barre espace ou le bouton de tir de la manette lorsqu'il 
pense avoir trouvé un intrus. 


Le joueur doit ainsi indiquer les 2 intrus, en pointant leur case 
avec ce curseur. Au bout de trois erreurs, les deux mots à trou- 
ver sont affichés. 


Le jeu reprend ensuite de la même manière avec trois autres 
listes de mots. 


A la fin du jeu, le score de l'enfant (bonnes réponses) est 
affiché. 


Les listes de mots de ce programme ont été établies après 
plusieurs essais de façon à tester l'aptitude des enfants à une 
lecture rapide et globale. Ces listes sont de difficulté crois- 
sante : 


1. Noms d'animaux : 10 animaux de la ferme + 2 intrus (ani- 
maux d'Afrique). 

2. Verbes : 10 verbes correspondant à des expressions du 
visage + 2 verbes de mouvement. 

3. Nombres écrits en lettres : de 1 à 12. 

4. Prénoms. 


Dans les deux premières listes, une association d'idées peut 


guider l'enfant dans sa recherche ; dans les deux suivantes, il 
devra compter seulement sur sa mémoire visuelle. 


Commentaires 


100 à 200 Initialisation et présentation du jeu. 

210 à 280 Affichage des 10 mots (les mots sont lus dans 
les lignes de DATAs par une boucle du type FOR 
NEXT). 

320 à 380 Affichage des 12 mots. (la ligne 350 tire au sort 


la couleur du mot). 
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420 à 500 Repérage des mots par l'indice, ainsi 
l'AMSTRAD CPC ne travaillera pas sur les 
chaînes de caractères. 


510 à 690 Lecture du clavier grâce à l'instruction INKEY$. 
Déplacement du curseur dans la direction dé- 
sirée et enfin validation si la touche enfoncée 
est “barre espace” (ligne 600). 


700 à 730 Test des réponses. Envoi du message d'erreur 
ou de réussite et si les deux bonnes réponses 
sont trouvées : nouvelle séquence. 


740 à 770 Affichage des réponses exactes. 
780 à 810 Test le nombre de jeux (f). Jeu suivant ou fin du 
programme. 


1000 à 1220 Liste des mots en DATAs. Pour chaque jeu, il y 
a deux listes : 
— la liste des 10 mots, 
— la liste des 12 mots dans un ordre différent, 
dont les deux intrus. 


Particularités techniques 


Nous vous proposons une version pour manette de jeu, il 
suffit de modifier ainsi les lignes 580 à 630. 


380 reprJOY(@) 

595 FOR ki TO IBO:NEXT KE 

390 IF repli AND repi:£ AND rep**i6 AND rep 
32 THEN S80 

600 IF repslé OR repri2 THEN 700 

&41Q IF j:6 THEN LOCATE 20,%%j-15 ELSE LOCATE I 
+ T% 

620 FRINT " " 

bEQ IF repri THEN jej+i ELSE jej-i 


Modifications 


La temporisation d'affichage des 10 mots lus séparément est 
fixée à la ligne 260 (une seconde dans le listing). Elle peut être 
adaptée. Mais l'utilisation de ce programme avec de nombreux 
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enfants a montré que donner un temps plus long de lecture 
modifiait les buts de ce jeu (voir « lecture débutant »). 


Les séquences musicales peuvent être retirées si l'ordinateur 
est utilisé dans une classe, pour éviter de perturber les voisins | 


Afin de simplifier le programme, les listes de mots lues en 
DATA sont doubles, pour un jeu. On pourrait imaginer de lire 
en une seule fois les 12 mots, de tirer les 2 intrus au sort, et 
d'afficher les autres. Le jeu serait ainsi différent à chaque fois. 


l'est très utile, dans le cadre d'une classe, de garder une trace 
écrite des résultats des enfants, bonnes réponses mais aussi 
erreurs, car on peut avoir 8 bonnes réponses sans erreur et 8 
bonnes réponses après 8 réponses fausses. 


Si l'on dispose d'une imprimante, il faut alors ajouter : 


790 PRINT+#8, nom, tr ; « BONNES REPONSES » : rf; 
« REPONSES FAUSSES » 


Programme 


Lecture rapide 


Affichage des 
10 mots l’un 
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après l'autre 


Dessin des boîtes 
Affichage des 
12 mots 















Réponse 
(manette de jeux) 













Test 
réponse-Coordonnées 
du point visé 







BR=2 
(nombre de bonnes 
réponses) 






F=4 
(nombre de jeux) 


oui 


Organigramme 










(nombre de réponses) 


Atfichage des 
bonnes réponses 


non 





non 
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AMSTRAD A L'ÉCOLE 


LOS REM See esse 

20 REM ---- LECTURE RAPIDE ---- 

210 REM --- D,Nielsen oct GI —--— 

AU REM -+— Augustin fev 86 --- 

SQ REM eee ee oo a ee 

60 ON BREAK GOSUR 1220 

70 REM stone voûte v0200 canne va60 vue eee vumms 00e 1000 nome 000 soamt éo0e naete 6000 nuage ao mmuae 0600 anne 0000 enees ooees evmms noue 04008 00000 vous ones o000s ondes 
80 REM +5 Module presentation 

30 REM v0m mé v000e mots so0m vues 60e mom etes ce mans été noves de vvone eme a0m0e 0m otaas oovve nome 10000 avant 0600 annee 10008 0908 ouoe soon ponte eau n0000 
100 MODE 1:FAFER 13:CLS:FEN @ 

110 LOCATE 2,2:PRINT M"MTEST LECTURE RAFIDE" 
120 ENV 1,20,1,1,25,-1,1 

150 FOR ii TO 10:SOUND 1,2:790,0,8,1,1,1@:NEXT 


149 LOCATE 2,4:INFUT "Quel est ton prenom "ino 
mEinoMmÉEUPPERS (nom) 

150 FOR iQ TO 200 STEF 1@:SOUND 1,i,1QD,1S:NEX 
Ti 

16@ RANDOMIZE TIME/1000 

170 RESTORE 

180 MODE G:FAFER S:FEN 

190 DIM at(12) ,/mot#(10) 

200 frQ:trxQr De @ 

210 CLS 

220 FOR i=ri TO 10 

270 READ mot#(i) 

240 LOCATE S,10:FRINT mot#(i) 

250 SOUND 1,200,10,15: 

260 FOR ji TO 2GODG:NEXT j 

27Q CLS 

280 NEXT ji 

e Lo Q K E M o000: s000 con voue cesse some eus caves 0060 0000. 00000 mes mens out nets eee 000 bé aides mom mirns tnt tent sue tuée rte nee 066 0606 

“00 REM -+ Module affichage 

mi 1 Q REM nt nie note sé ces s006 0e inves s0 inp 0800 ét inuus uioes se ete astus mb sé des ouais 00666 0066 dans 08660 ot onu ane oûee san 0 

320 FAPER 1:CLS 

350 FOR kæi TO 12 

34Q READ a*f(k) 

250 j=INTCRND#IT):IF jel OR jr2 OK jx4 THEN JS 
Q 

26Q IF kré THEN LOCATE 11,%*xk-15 ELSE LOCATE % 
RENTE 

270 FEN j:PRINT a#Ck) 

28Q NEXT Ek 

a EI Q K E M once sans muets 0068 tue 00000 cons amv ne mous m0 0606 uen ouvre 00000 0606 noms nuûne mb 0006 unes ours 06 none 20008 net muate 00000 des ons onu 

400 REM -* Module Heu Eù jeu 

4 SE (Pa) K E M enieé ane8é mime soudé ctoms caso oten auéte soute oise 06300 a CEE met ee e0ee ve move move nets ou ares see 

42Q f=f+i: FEN 5 

4ArQ ceQibreDit=l:srQ 

44Q FOR j=i TO 12% 
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45Q FOR izi TO 10Q 

460 IF mot#(i)zat(j) THEN af(j)="" 

47Q NEXT i, 

480 FOR ixi TO 12 

490 IF afCi)<is"" TMEN num(tieistetæl 

300 NEXT :i 

J1Q ji 

220 IF cx4 OK brx2 THEN 750 

330 FOR izl TO 1OGB:NEXT ji 

240 LOCATE 4,24: FRINT SFACE#(6) 

JOQ cec+i 

260 IF jé THEN LOCATE 290,5%x)j-15 ELSE LOCATE 1 
sa+IX 

0/9 FRINT CnR& (224) 

290 iF=INKEY#:IF it="" THEN 580 

990 IF i$<s"1" AND i$£:"2" AND it:*" " THEN SO 
UND 1,400,20,15:GOT0 580 

600 IF i$='" " THEN 700 

610 IF j+:6 THEN LOCATE 20,3%*%j-15 ELSE LOCATE 1 
RERCE 

620 PRINT " " 

65Q IF i$='"i" THEN j=j+i ELSE j=j-1 

64Q IF j=15 THEN ji 

650 IF j=Q THEN j=1? 

660 SOUND 1,100,1@,15 

67Q IF jé THEN LOCATE 20,3#j-15 ELSE LOCATE 1 
VET+EX j 

680 FRINT CHR#&(224) 

690 GOTO 58@ 

7Q0 IF (j=num(i) OR jæ=num(2?)) AND s=Q THEN 720 


710 IF (j=num(1) OR j=num(2)) AND j#>s THEN 72 
Q ELSE LOCATE 4,24:FRINT "FAUX ‘"':GOTO 520 

720 LOCATE 4,24:PRINT "ERAVO':br=br+i:s= 3j: GOTO 
520 

720 tretr+br 

7AQ IF bre2 THEN 770 

750 LOCATE 1,1:PRINT "les mots nouveaux'",'"etai 
ent" 

760 FRINT a#(num(1))35" "sa#t(num(2)) 

77@ FOR i=i TO Z2S5Q0:NEXT i 

780 IF f£4 THEN 210 

790 MODE 1:CLS:FEN @:LOCATE 2,2:PRINT nom#3;'", 
tu as trouve'"itri' mots nouveaux" 

800 FOR i=Q TO 200 STEF 1@:SOUND 1,i,1@,15:NEX 
Ti 

810 LOCATE Z,S:PRINT "C'est termine, au revoir 
!"# END 


54 | AMSTRAD A L'ÉCOLE 


1000 
1010 
10:20 
10:50 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1170 
1140 
1150 
1160 
1170 
1180 
1190 
1:00 
1210 


1220 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
MODE 


LAFIN,CHEVAL,PIGEON,VACHE ,COQ 
POULE , CANARD , ANE , MOUTON, DINDE 
DINDE , CANARD, SINGE , CHEVAL 
VACHE , MOUTON, POULE , COQ, LAPIN 
PIGEON,LION,ANE 

PLEURER ,RIRE, SOUFIRER, CHANTER 
GRIMACER , SOURIRE , GROGNER 
CRIER, SIFFLER,RICANER 

COURIR ,CRIER,GRIMACER, SOUPIRER 
FLEURER , GROGNER , SAUTER , CHANTER 
RICANER,SIFFLER,RIRE, SOURIRE 
DEUX ,SIX,UN,HUIT,QUATRE, CINQ 
NEUF ,DOUZE ,SEFT ,ONZE 
UN,DEUX,TROIS,QUATRE ,CINOQ,SIX 
SEPT, HUIT,NEUF ,DIX,ONZE, DOUZE 
JACQUES ,PIERRE ,ELISABETH 

ANNIE ,CLAUDE ,PHILIFPE, NATHALIE 
MARTINE ,FASCAL , CHRISTINE 
PIERRE, NATHALIE , CLAUDE , ANNIE 
JACQUES , DANIEL , CHRISTINE 
AUGUSTIN,MARTINE ,ELISABETH 
FASCAL ,PHILIPFE 

1:FEN @:CLS:END 


LECTURE DEBUTANT 


Thème 


Acquisition de mots nouveaux ou recherche de mots connus 
sous forme de test de lecture rapide adapté aux plus jeunes. 


Niveau 


Cours préparatoire et début de Cours élémentaire 1° année. 
A partir de 5 ans. 


Intérêt pédagogique 
Connaissances 


— apprentissage de la lecture ; 
— perception visuelle et globale de mots connus. 


Savoir-faire 


— mémoire ; 
— activités de discrimination visuelle (identifier et distinguer 
des signes graphiques différents). 
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Déroulement 


Le déroulement de ce programme est identique à celui de 
« lecture rapide ». 


Voici les différences : 


— les listes ne sont formées que de 5 mots et 1 intrus ; 

— chaque mot de la première liste est affiché durant trois se- 
condes ; 

— les mots sont entrés en minuscules car, au début de l'ap- 
prentissage de la lecture, les enfants ne sont pas familia- 
risés avec le graphisme des lettres majuscules. 


Les mots entrés en DATA ne sont qu'un exemple. Ils ont été 
définis en tout début d'année scolaire par des institutrices de 
Cours préparatoire, et doivent évoluer en cours d'année (voir 
« adaptations »). 


Le choix des intrus effectué ici porte sur des mots nouveaux, 
inconnus des enfants, mais dont le graphisme est proche de 


celui d'un des mots de la première ligne (de-deux, papa-pépé, 
elle-élue, fait-four). 


Commentaires 


Voir le thème « lecture rapide ». Le programme est organisé 
rigoureusement de la même manière. Seules différences : 


210 Cinq mots au lieu de dix. 


320 à 360 Affichage sur une seule colonne. 


Modifications 


Elles sont les mêmes que pour « lecture rapide » : 


— durée de la temporisation de l'affichage des mots de la 
première liste, ligne 250 ; 
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— nombre de réponses possibles : on peut considérer, sur- 
tout si ce programme sert à l'apprentissage de mots nou- 
veaux, que l'enfant doit trouver de lui-même la bonne 
réponse, quel que soit le nombre de réponses. 

Il faut alors supprimer les lignes : 


500 
530 
680 à 690 


. Pour jouer avec une manette de jeux, il faut remplacer les 
lignes 550 à 590 par : 


550 rep=JOY(@) 

dde FOR ki TQ IBO:NEXT 

360 IF rep#:1l AND rep#:2 AND repi:ié AND rep“: 
32 THEN 550 

37Q IF reprlé OR repré? THEN 650 

590 LOCATE 8,%+3%x 5j: FRINT !" " 

590 IF repli THEN j=j+1i ELSE jxj-1 


Adaptations 


Ce programme peut être une aide importante pour juger l'ap- 
prentissage de la lecture. On peut y mettre, comme ici, des mots 
connus, l'intrus étant lui un mot non étudié. 


Les mots en DATA peuvent être des mots tous connus, ou 
encore des nombres écrits en lettres (ou en chiffres, ce qui serait 
alors une sorte de jeu de Kim à l'envers). 


On peut encore entrer en DATA non pas des mots entiers 
mais des graphèmes (le, la, lo, lu, au, o, dre, bre, etc.). 


Ce programme permettra alors d'évaluer les acquisitions 
réelles des enfants au fur et à mesure de l'apprentissage de la 
lecture et surtout de détecter de manière précoce les problèmes 
d'inversion de sons (DR et PR, etc.). 


Pour des enfants d'école maternelle, on peut envisager d'af- 
ficher non pas des mots mais des couleurs, des dominos ou des 
dessins simples. L'enfant devra ensuite, selon le même pro- 
cédé, découvrir l'intrus dans l'affichage des six boîtes. 
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Programme 


Lecture débutant 


Entrée du prénom 


Affichage de 5 mots 
l'un après l’autre 


Dessin des boîtes 
Affichage des 
6 mots 










Réponse 
(manette de jeux) 






Test 
réponse (coordonnées 
du point visé) 









F-4 
(nombre de jeux) 


non 





Organigramme 





non 





oui 


Affichage 


bonne réponse 





oui 
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1 (Pa) FX E M anvns 000 06060 nues 00000 amate 00000 cases 00e con amie onu anéee anve muvte emeee outes envte novve mntee mure ones 
20 REM --. LECTURE RAFIDE --- 
FO REM -… D,Nielsen oct 83 -—— 
40 REM --- Augustin fev 86 -—- 


SD REM ee ee me mue nes ss mn Hans 
60 ON DAS GOSUER 1060 
7Q REM ns nm co 





“+ Module | presentation 

Le (Pa) F E M cd re ni pd 105 me Gode eus cine 060 Gone ut AS nee da ae 6 LS 0 cn 0 um as mo ou aie Sn rein ie sé 

108 MODE L:FPAPFER 13:CLG:FEN @ 

110 LOCATE 2,2:PFRINT MTEST LECTURE RAFIDE DEERU 
TANT" 

120 ENV 1,20,1,1,78,-1,1 

150 FOR ixi TO 10:SOUND 1,:7680,0,0,1,1,1@:NEXT 
i 

140 LOCATE 2,4: INPUT "Quel est ton prenom "{ÿno 
méinomé=UFPERSÆ (nom) 

150 FOR iQ TO 200 STEF 10:SOUND 1,i,19D,1S:NEX 
T4 

160 RANDOMIZE TIME/1000 

17Q RESTORE 

180 MODE Q:FAPER S:FEN 1 

190 f=Q:treQ:br=Q 

200 CLS 

210 FOR i=si TO S 

220 READ mot#(i) 

230 LOCATE S,1Q:PRINT mot#(i) 

240 SOUND 1,200,10,15: 

250 FOR j=i TO ZOUO:NEXT j 

268 CLS 

27Q NEXT ji 

280 REM 0 comme once v0000 eee votes ot evene onto 0608 tune 10000 nage sans onaeé 06600 ouate 24006 oooee onu mese mans attee 0000 mans eee 00e anoee 0008 sous 0040 

290 REM -> Module affichage 

500 REM eovus cures ous oneme moe ontne meme opeee oeoee nome oodoe oovee moe 01000 00000 meme emmes onto ets 0000 600 0000 0000 060 ee ee ven ave ace mous ones 

310 PAPER 1:CLS 

320 FOR k=i TO 6 

370 READ ak) 

340 je=INT(RND#15):IF jeil OK j=2 OK jx4 THEN 34 


350 LOCATE 10,23+5xk: PEN JEFRINT a#(k) 
360 NEXT Ek 

A 7 Q KR E M nues stn08 sas eue oueee osves anses doute ones neue 0e abdos 006 06 10008. ms muse nent envie anus cvnts sons soobe Ga6o 0000 se 2000 ide 
280 REM -% Module debut du jeu 

a cp Q FX E M anis outee aniee choné s6è06 meme same soda mes 0e moe does ane 0000 o060e meèee mots mes mueee onues sun 00e 00008 1060 606 onu vou etes es etes autos 
400 fft+lis PEN S 

41Q ciibreQ 

42Q FOR j=1i TO 6 

470 FOR ii TO S 

44Q IF mot#(i)zaf(j) THEN a#f(j)æ"" 
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4S5Q NEXT i,3 
460 FOR ixi TO 6 


47Q IF a#fCi)ie+"" THEN nmumæi 
48Q NEXT i 

AGO ji 

JA IF cx4 THEN 670 


910 FOR il TQ 1OOG:NEXT ji 

De0 LOCATE 4,24: PRINT SFACE# (6) 
DD Cac] 

340 LOCATE 8,4% js PRINT CHR# (2224) 
DUO LFFINÉEVEÆSIF 1H" THEN 550 


S6Q IF i#is"1l" AND i£"Q" AND ii" " THEN 60 
UND 1,400,20,1S:GO0T0 550 


260 LOCATE 8,35+3%j:PARINT " " 

290 IF ife"1" THEN jej+ri ELSE jxj-1 

600 IF j=7 THEN ji 

61Q IF j*Q THEN j=6 

62@ SOUND 1,100,10,15 

650 LOCATE 8,5+73%5j: FRINT CHR#(224) 

640 GOTO 550 

650 LOCATE 4,24 

660 IF jenum THEN FRINT "BKAVO':brebr+l ELSE F 

RINT "FAUX ":GOTO 500 

87Q tr=etr+br 

680 IF br=i THEN 700 

690 LOCATE 1,1:FRINT "le mot nouveau", ,'etait : 
"yat (num) 

700 FOR i=il TO 2SO00:NEXT i 

71Q IF f:4 THEN 200 

720 MODE 1:CLS:PEN GiLOCATE Z,2:PFRINT noms", 

tu as trouve'"itrs "mots nouveaux" 

7530 FOR i=Q TO 200 STEF 10:SOUND 1,i,10,15:NEX 

à 

74Q LOCATE 2,S:FRINT "C'est termine, au revoir 

ls END 

1000 DATA un,une,le,de,il 

1010 DATA un,le,deux,il,de,une 

1020 DATA maman,papa,petit,chat,fait 

1020 DATA papa,fait,chat,maman,pepe,petit 

1040 DATA dans ,est ,il ,avec,elle 

105Q DATA elue,avec,elle,il,dans,est 

1060 DATA fait,elle,de,est,et 

1070 DATA et ,fait,de,four ,est,elle 

1080 MODE 1:FEN @:CLS:END 


PLURIEL DES NOMS 


Thème 


Didact d'apprentissage ou de révision du pluriel des noms, 
utilisant les exceptions les plus courantes. 


Niveau 


A partir du Cours élémentaire 1° année (7 ans). 


Intérêt pédagogique 
Connaissances 
— vérification des acquis en grammaire et orthographe ; 


— étude ou révision des mots faisant exception à la règle gé- 
nérale. 


Savoir-faire 


— en cas d'erreur, lecture de la règle d'exception et applica- 
tion directe au mot demandé. 
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Déroulement 


Après enregistrement du prénom du joueur, l'écran affiche 
un nom au singulier, accompagné de son article indéfini, et 
demande le pluriel de ce nom. L'enfant doit entrer « des … ». 


Si la réponse est bonne, on passe à un autre nom (10 ques- 
tions se succèdent ainsi avant la fin du jeu). 


Si elle est fausse, deux cas se présentent : 
— Règle générale : une autre réponse est demandée sans 
précision particulière. 


— Cas d'exception : la règle d'accord du pluriel s'inscrit sur 
l'écran pendant 15 secondes. 


L'enfant propose une autre réponse : le programme repart 
comme après la première réponse (exact ou faux). 


Commentaires 


60 Procédure anti-“BREAK”. 

100 à 160 Définition des fenêtres. 

200 à 240 Initialisation et lecture des mots en DATAs. La 
ligne 240 tire au hasard un mot. 

280 à 350 Lecture de la réponse de l'enfant, avec une vé- 
rification immédiate de l'article. 

390 à 510 Contrôle de la réponse, et le cas échéant aiguil- 
lage vers les exceptions. 

550 à 560 La règle est simple. 

600 à 620 Bonne réponse, et si nb < > 10 nouvelles ques- 
tions. 


1000 à 1320 DATAs des mots. 

2000 à 2030 Contrôle des nomsensS, X, Z. 
3000 à 3030 Contrôle des noms en AU et EU. 
4000 à 4130 Contrôle des noms en AL. 

5000 à 5080 Contrôle des noms en OU. 

6000 à 6080 Contrôle des noms en AIL. 
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Particularités techniques 


Lorsque la réponse est donnée, le nom proposé est comparé 
aux différentes exceptions à la règle générale, afin de détermi- 
ner la bonne réponse (lignes 390 à 510). 


Les exceptions sont inscrites en DATA, elles peuvent ainsi 
servir à la comparaison avec le nom donné (lignes 390 à 510) et 
aussi à l'affichage de la règle en cas de réponse erronée (ins- 
truction RESTORE pour pouvoir relire le bloc DATA). 


Modifications 


On peut augmenter le nombre de mots à tirer au sorten DATA 
(lignes 1000 à 1100) en changeant seulement la valeur du mul- 
tiplicateur de la fonction RND de la ligne 240. 


Remarque : seules les exceptions courantes, correspondant au 
vocabulaire moyen d'un enfant de 10 ans, sont prises en compte 
(notamment pour les noms en AL). 


Adaptations 


Si l'on possède une imprimante, il est possible comme pour 
le programme de conjugaison de garder une trace des erreurs 
rencontrées, afin de revenir ensuite sur ces règles. 


Il faut alors ajouter ces lignes : 


2025, 3025, 4115, 5075, 6075 
Ex. : 2025 PRINT +8, nom, n$(t), rep$ 
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Programme Pluriel des noms 


Présentation 


Tirage au sort 


d'un nom 





Affichage du nom 





F Entrée de la réponse 







Grille des 
exceptions 















Cas général 
Réponse Réponse Réponse Réponse 
fausse exacte exacte fausse 
Affichage de 
la règle 
d'exception 
non NB=10 








(nombre de noms) 





Organigramme 
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19 REM = —— 

20 REM —--- PLURIEL DES NOMS --- 

30 REM —--- D.Nielsen nov 83 --- 

40 REM --- Augustin jan 86 --- 

DQ RM em mme 

60 ON BREAK GOSUB 490 

70 REM == 
80 REM -> Module presentation 

Q9Q REM = eo mo 


10Q MODE 1: PAPER 13:CLS:PEN 0 

110 WINDOW#3,11,31,5,7:FAPFERKS,0:CLS#KS 

120 WINDOW#3,10,30,4,6: PAPERK3,10:CLS#K3 

1350 WINDOW#2,5,38,11,22:PAPER#K2,0:CLS#2 

140 WINDOWK2,4,37,10,21:PAPERK2,10:CLS#2 

150 FEN#S,0:LOCATEHZ,3,2: PRINT#S,''PLURIEL DES 
NONMS " 

160 FEN#2,0:LOCATE#2,2,2: INPUT#2,'Quel est ton 
prenom "isnom#:nom#=UPPERS (nom#) 

170 RM ---- 

180 REM -à initialisation et lecture 

190 REM = ——— 

200 DIM n#(31) ,a$t(15) 

210 nb=Q:v=0Q 

220 RESTORE:RANDOMIZE TIME/1@00 

230 READ n#(v+1)sIF n#(v+1)<2"72722" THEN vev+i 
:GOTO 230 

240 t=INT (RND*#30) +1 

290 REM --mmmmmmmmmmemmmmmmm mm mme 

260 REM —-> Module pluriel 

270 REM ------————— 

280 FOR i=i TO 6QOG:NEXT i 

290 CLSk#2:PRINT#2,'"Ecris ce nom au pluriel" 
300 CLS#3:LOCATEXS,2,2: PRINT#KS ,n$(t) 

310 PRINT#2,'"Attention, n'oublie pas l'article 


320 LOCATE#2,2,6:INPUT#2,rep# 

350 PRINT#2:rep#=UPPERS# (rep#) 

34Q 1=LEN(NnS(t)):p=LEN(rep#) 

350 IF LEFT$(rep#,3)<2>"DES" THEN PRINT#2:PRINT 
#2,'"TU as oublie l'’article":GOTO 280 

360 REM 

370 REM -> Module grille des exceptions 

380 RM ------———— 

390 IF RIGHT#(Nn#$(t),1)="2" OR RIGHT#(n#$(t) ,1)= 
"S" OR RIGHT$#(n$(t),1)="X" THEN 2000 

400 IF RIGHT$(n#(t),2)="EU" OR RIGHT$(n#(t),2) 
="AU" THEN 3000 

410 IF RIGHT#(n#(t),2)="AL'" THEN 4000 

420 RESTORE 1200 
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450 FOR i=i TO 7 

44Q READ exc#(i) 

450 IF exc#t(i)=zn$t(t) THEN 5000 

460 NEXT i 

47Q RESTORE 1230 

480 FOR i=i TO 8 

490 READ exc#(i) 

9500 IF exc#(i)=n$(t) THEN 6000 

9310 NEXT ji 

D20 RM ----—— ee 

930 REM -> Module reponse 

D4Q RM ----———— en 

550 IF RIGHT#(rep#f.,3) =RIGHT#(Nn#(t).2)+"S" THEN 
600 

500 FRINTHE," Tu te trompes, "inom#," La regle 
est simple, recommence": GO0OTO 2680 


570 RKEM once omume 100 v000 mate mes s000 nee 06 se sua 600 nouee st60e onûee 00e ovete adè0e mens v00 muse oo nat 0000 mans aneee 00008 ave 00008 sous 0000 
380 REM -5 Module reponse exacte 
590 REM o0600 mans 0000 s00 mans 006 somme rés eve s6m nas 60e annee 06000 mnn0e 0008 omete 09000 ones 00000 mnaee see onaus 00060 sue 08006 000 ane 0000 ave 00000 
6OQ FKRINTH#EZ," C'est exact, "inom# 


610 nhæenb+i 

60 IF nbi:10 THEN FRINT#2," Voici un autre no 
m'':GOTO 240 

6 ni (Pa) K E M vo man s000 une me eme mue see nee soœe mme me open meme an00e 00e ous anne 20000 oo mans oeve op mont mens amv oo 0e annee 000 008 
640 REM -: Module fin 

630 REM or nm va30 om vase eue anne sus mé out s000 0606 ous mures 0006 tee mme 0006 008 sans m0 0000 mue ad ones om 0000 nee mena 0000 
660 ELSHT:LOCATERSZ,4,2: FRINT#E ,nom# 

670 FRINTH#2," C'est termine, au revoir" 
680 FOR ii TO ZSOG:NEXT i 

6890 CLS:END 

1000 DATA UN CHAT,UN CHEVAL,UN CANARD 
101Q DATA UN CHEVEU,UN BAL,UN CHIEN 

1020 DATA UNE JOURNEE ,UN FRIX,UN RAT 
1070 DATA UNE FOURRURE ,UN TROU,UN BIJOU 
104 DATA UN FOUR,UNE SOURIS ,UN VITRAIL 
1050 DATA UN NEZ,UN CHACAL,UN OBJECTIF 
1060 DATA UNE NOIX,UN FINGOUIN,UN GAZ 
1070 DATA UN TRAVAIL,UN RELAIS, ,UN CHQU 
1080 DATA UNE SERRURE ,UN PFUITS,UN KRECITAL 
1090 DATA UN JOUJOU,UNE TISANE,UN VERRE 
1100 DATA 2272 

1200 DATA UN BIJOU,UN JOUJOU,UN CHOU 
1210 DATA UN GENOU,UN HIBOU,UN CAILLOU 
1220 DATA UN FOU 

1230 DATA UN VITRAIL,UN TRAVAIL ,UN EMAIL 
1240 DATA UN HAIL,UN SOUFIKAIL 

1250 DATA UN CORAIL,UN EVANTAIL 
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1260 DATA UN FERMAIL 

1300 DATA UN BAL,UN FESTIVAL,UN CARNAVAL 

1510 DATA UN REGAL,UN CEREMONIAL 

1320 DATA UN RECITAL,UN CHACAL 

1350 REM == mme me oo one ae con en de me me om ms mn un 

1340 REM -> Module les noms en S,2,X 

1350 REM ces ce me ae neo de ane ma 

2000 IF RIGHTE#(NECE) ,T)=RIGHTÉE(repf,7:) THEN 60 
@ 

2010 FRINT#H#2,'" Les noms termines au singulier" 
," par $S ou Z ou X gardent la meme'"," forme au 
pluriel" 

2020 FRINT#2," Exemple : UN BOIS -* DES HOIS" 
2050 GOTO ?80 

2040 REM uen on a neo ne am ee one me os 

2050 KEM -* Module noms en AU et EU 

206 REM me men one a om ne a a ae oo oo 

31000 IF RIGHT (rep#f,7) =RIGHTE Cm CE) ,2)+"X" THE 

N 600 

2010 FRINT#?," Les noms termines au singulier" 
," par AU ou EAU ou EU ou OEU"," prennent un X 
au pluriel" 

1020 FRINTH?," Exemple : UN ADIEU -* DES ADIEU 
x! 

20:00 GOTO 2680 


FOAQO REM vue von mme mie mue ne more ane ao me ce me te com a aa at ae ae ae mu eo ee 
T0SO REM -% Module noms en AL 
si [PA] 6 Q [FX E M anoni 1406 tone ose add tee Votip CES lt F6 563do Et vamn etes dia Lo PONS Seb ones dt 10665 citse tes ont moe cibi dates 6060 dou éd 


4000 RESTORE 1300 

4010 FOR i=1 TO 7 

4020 READ exc#(i) 

ADO IF mEC(t)rexc#t(i) THEN 4170 

4040 NEXT i 

4050 IF RIGHT#(rep#,3)=MID#(n#(t),1-1,1)+"UX" 
THEN 600 

4060 FRINT#2,'"Les noms termines au singulier p 
ar AL ont un pluriel en AUX, sauf :" 

4070 RESTORE 1300 

4080 FOR i=i TO 7 

4090 READ exc#(i):PFRINTHS, "5% Mrexcé(i) 

4108 NEXT i 

4110 FRINT#2:FRINT#2," qui ont un pluriel en À 
LS"! 

4120 GOTO 280 

4130 IF RIGHT#(rep#f,35)=RIGHTE(nECt) ,2)+"S" THE 
N 600 ELSE 40460 

414Q REM ee nee eee me ae ae me eee de de mn me 
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4150 KEM -> Module noms en OÙ 

4160 REM ee ee ee ee 

5000 IF RIGHT£(rep#t,23)=RIGHTÉE(NE(E),2)+"X" THE 
N 600 

23010 CLSH2:FRINTÉH2,'" Les noms suivants'': FRINT# 
2 

5020 RESTORE 1200 

3070 FOR izi TO 7 

2040 READ exc#(i) 

9050 PRINTH2,'"-% Miexc#(i) 

206@ NEXT i 

9070 FRINTH2:PFRINTHE," prennent un X au plurie 
1! 

25080 GOTO 280 

5090 REM = ue een ue one one oo oo ee me ne mn on 

9100 REM -5 Module noms en AIL 

59110 REM = ae ce ae oo a co mm mom me 

6000 IF RIGHT#(rep#f,3)=MIDE(n#Ct) ,1-2,1)+"UX" 
THEN 600 

6010 CLSH2:PRINTH2," Les noms suivants" 

6020 RESTORE 1230 

40:Q FOR i=i TO 8 

6@4Q READ exc#(i) 

6050 FRINT#H2,'"-5 lrexc#(i) 

68@6@ NEXT ji 

607Q FRINTH2:PFRINT#2," ont un pluriel en AUX" 
6080 GOTO 280 


CONJUGAISON 


Thème 


Didact d'apprentissage ou de révision des verbes du 1°" et du 
2° groupe au présent, imparfait, futur, passé simple de l'indi- 
catif. 


Niveau 


A partir du Cours élémentaire 2° année (8 ans). 


Intérêt pédagogique 
Connaissances 


— vérification des acquis en conjugaison et révision des 
verbes-type du 1°" et du 2° groupe. 


Savoir-faire 


— en cas d'erreur, utilisation de la conjugaison-type affichée, 
reconnaissance du radical et de la terminaison pour for- 
muler une nouvelle réponse au verbe demandé. 
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Déroulement 


Après enregistrement du prénom du joueur, l'écran affiche 
un verbe à l'infinitif et demande sa conjugaison à l’un des quatre 
temps et pour une personne donnée. L'enfant entre sa réponse. 


Si elle est bonne, on passe à un autre verbe (10 questions se 
succèdent ainsi avant la fin de l'exercice). 


Si elle est fausse, sur l'écran apparaît la conjugaison du verbe 
chanter ou du verbe finir au temps demandé et à toutes les 
personnes. 


L'enfant doit ensuite proposer une autre réponse. Si celle-ci 


est encore mauvaise, la conjugaison-type est de nouveau affi- 
chée, ainsi de suite. 


Commentaires 


100 à 200 Présentation du jeu et saisie du prénom du 
joueur. 

240 Mémorisation des verbes des blocs DATA. 

250 à 270 Mémorisation des personnes. 

280 à 300 Mémorisation des temps. 

340 à 360 Tirage au sort d’un verbe, d'une personne, d'un 
temps. 

400 à 430 Entrée de la réponse de l'enfant. 

470 à 660 Test de la réponse. 

700 à 800 Réponse fausse. Affichage de la conjugaison- 
type. 

810 à 850 Nouvelle entrée de réponse. 

890 à 940 Bonne réponse, et test de suite du jeu. 


980 à 1020 Fin du jeu. 

1030 à 1130 DATA verbes. 

1140 à 1190 DATA personnes. 
1200 à 1230 DATA temps. 

1240 à 1310 DATA terminaisons. 
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Particularités techniques 


Le choix du verbe (30), de la personne (6), et du temps (4) est 
obtenu au hasard à partir d'une séquence aléatoire initialisée 
par la longueur du prénom du joueur. ll y a donc 720 possibilités 
d'affichage différentes. 


Les lignes 480 à 570 placent le pointeur de données DATA sur 
la ligne correspondant aux terminaisons et du temps du verbe 
demandés. 


La conjugaison-type, en cas d'erreur, est affichée par une 
boucle FOR NEXT aux lignes 740 à 770. 


Modifications 


Ligne 210 : on peut supprimer l'expression suivant RANDO- 
MIZE afin que les verbes soient véritablement choisis au hasard 
et non plus en fonction de la longueur du prénom du joueur. 


Ligne 240 : la lecture des verbes dans les DATA peut se faire 
par une boucle du type WHILE WEND, jusqu'à ce que le pointeur 
trouve le symbole « * ». De cette façon, on peut ajouter sans 
difficulté d’autres verbes (il faudra toutefois revoir les dimen- 
sions de tableaux de la ligne 170 si le nombre de verbes devient 
trop important). Il suffira de modifier le paramètre multiplica- 
teur de la fonction RND de la ligne 340 pour reconnaître les 
nouveaux verbes dans le tirage au sort. 


Attention toutefois aux verbes en GER (exemple : manger), 
en OYER, UYER, ELER et en ETER pour lesquels la conjugaison 
est irrégulière et qui nécessiteraient des sous-programmes par- 
ticuliers. 


Il n'y a pas de verbe commençant par une voyelle dans ce 
programme, mais vous pouvez en ajouter si toutefois vous pré- 
voyez le cas de la première personne du singulier qui se nom- 
mera « J'» et non plus « JE ». 


Adaptations 


On peut modifier les temps, faire par exemple un programme 
sur le subjonctif (plus de 10 ans), en changeant simplement les 
lignes de DATA 1200 à 1230. 
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Un programme sur les temps composés peut permettre de 
traiter aussi les verbes du 3° groupe, mais amènerait une mo- 
dification plus profonde : 


— lignes 470 à 570; 
— conjugaison de l’auxiliaire et lecture des participes passés 
en DATA. 


L'enfant ne pouvant sortir du programme qu'en trouvant la 
bonne réponse, il est inutile de comptabiliser le score. Par contre, 
et surtout dans une école, il est très utile de garder une trace 
écrite des erreurs. 


Si l’on dispose d'une imprimante, il faut alors ajouter : 


701 PRINT+#8, nom$, “erreur au verbe” ; V$(v) ; per$ (p) ; 
temp$(t) 


ce qui permet de connaître les difficultés recontrées lors de 
l'exercice et d'y remédier ensuite. 
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Programme 


Présentation 


Lecture des verbes, 
personnes et temps 
en data 


Conjugaison 












Choix aléatoire 
d'un verbe, 
d'une personne, 
d'un temps 


Affichage 
Entrée de la réponse 


Lecture des 
terminaisons en data 










Test réponse 









Réponse exacte Réponse fausse 






Exemple de 
conjugaison 


Nouvelle 
réponse 


Organigramme 


120 
170 
140 
150 
160 

pr 
170 
180 
190 
200 
210 
220 
250 
240 
1:G 
250 
260 
270 
280 
290 
300 
310 


Ta 
Er 


350 
340 
250 
360 
370 
280 
390 
400 
410 

1 
420 

30 
440 
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REM 
REM mm CONJUGAISON --——- 
REM -—-- D,Nielsen nov 835 -—- 


REM --- Augustin jan 86 --- 


REM oo eo ae em om 

ON BREAF GOSUB 1020 

REM = cena on es mem om 
REM —-* Module presentation 

REM eue 0000 une 00e covus ee come ones ee somme eee 0000 anses 14008 0666 00000 6006 stuvs eee ma om00e 000 onené 10000 von 00006 00008 bee 00 onu es ooune 
MODE 1:FAPFER 13:CLS:FEN Q 


WINDOW#3,15,27,5,7:FAPERK3, 0: CLS#z 
WINDOWHZ,14,26,4,6:FAFERK3, 10: CLS#S 
WINDOW#2,5,38,11,22:PAPER#2,0:CLS#? 
WINDOWH2,4,37,10,21:FAFER#2, 10: CLS#? 
PEN#S,0:LOCATE#3,2,2:PRINT#3, "CONJUGAISON" 
FEN#?,0:LOCATE#Z,2,2: INPUT#D , "Quel est ton 


enom ‘'ynom#inom#=UPPFERS (nom#) 

DIM v#(40) ,pr#(é) 

nb=@:1=0 

RANDOMIZE TIME/1000 

RESTORE 

REM etes onves some me mme so0e c060 c00 2060 eee 0060 0060 00000 con enaaé mes mate m0 00600 0000 00000 0 000 00008 00 Ou 00 0008 00e ose nus 
REM -* Module lecture des DATAS 


REM eee mom come cos man 00e mans c000 mets tee 0600 sunve ie 20006 00e man 0000 0606 0608 onmue 00064 206 tas 2006 0006 onu se me on 0006 nas 
READ v#(l+1)s: IF v#(l+1)<:"7227" THEN 1=1+ 
OTO 240 

FOR i=1i TO 6 

READ pr#(i),pers#(i) 

NEXT ji 

FOR i=i TO 4 

READ temps#t(i) 

NEXT ji 

REM me ae ee oo a ee eo oo oo no 
REM -> tirage au sort d'un verbe 
REM ee ae eo oo on 
V=Æ INT (RND#:30) +1 

pÆINT (RND#6) +1 

t= INT (RND#%4) +1 


REM ur nee noms ae mnt sac on mu ave vue sta ne une m0 ot mue m0 0006 une mue 2000 mme home 0000 some ont 00e me ane mm me 


REM —5 Module conjugaison 

REM 0000 mm rom eee mans 0060 sem core ete ue 0000 0006 mue 0000 1006 onde 2000 0006 mans ana 006 US 2000 0008 mans ae 66 ve ons m0 co 
CLS#2:CLS#3: LOCATERS,2,2: PRINTHE,vV#(V) 
LOCATE#2,1,2:PFRINT#2,'"Conjugue ce verbe au 
temps$f(t) 

FRINT#2,'""a la "spers#(p) 

INPUT#E ,rep#:rep#=UPPFERS (rep#) 


REM = nee mue ce ee nue ne ane mue mn ae ut mo ane te mate on a me a ue one te or 


450 REM -> Module reponse 


460@ 


REM (eemne mes onu move move none one one sons moe seen none one some sous oovee meme eue monte neue nue monts ous anee ou0e so oouee 00e monté mans bons 
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47Q IF RIGHT#(VE(V),2)="IR" THEN 5:30 
480 ON t GOTO 490,500,510,520 

49Q RESTORE 1240@:GOTO0 610 

900 RESTORE 1250:GOT0 610 

910 RESTORE 126@:GO0OT0 6410 

220 RESTORE 1270@:GOT0 4610 

930 ON t GOTO 540,550,560,570Q 

340 RESTORE 1280:G0OT0 610 

990 RESTORE 1290:G0T0 46410@ 

260 RESTORE 1500:GO0OT0 410 

J7Q RESTORE 1510 

J90 REM = eo eo a me om mn ma oo oo 
2970 REM -; Module test reponse 


4 CATA rire 
QD IE M Gratin 0 ts OS a es maté 


610 FOR il TO ie 
bEQ READ PA 
IQ NEXT i 

BAD LIEN CVE (Cv) ) 


850 raditeLEFT#Æ(V£E(v),1-2) 

66Q IF rep: DER. PAPACIRERONNSRRE THEN 890 
6530 REM “+ Module FRDONES fausse 

és Le) a [+ À FE M a0000 vè00e 10009 ste aan 0000 000 00 0000 0000 n068 0000 0000 tes eve 00e aus evene oo vues nes 

700 PRINTH, "TU te trompes ie 


710 FOR ii TO 2GO0:NEXT i 

720 CLS#2s PRINT#2, "Voici un exemple de conjuga 
ison",'"d'un verbe semblable au "itemps#(t) 

TO tF FTGHTEÆ CV CV) D) RUTR" TMEN  exta "FIN" EL 
SE ex%e "CHANT" 

740 FOR ii TO 6 

750 LOCATERHZ,10,4+i 

760 FRINT#H2, pr#Qi)i" iexts terme (Ci) 

77Q NEXT ji 

780 FRINTH#2," As-tu trouve 7" 

790 FRINT#2," Appuie sur une touche" 

900 iFeINFEVEÆLIF if!" THEN 800 

G1Q CLS#2: PRINTH#2: FRINT#S ,pers#(p) 

820 FRINT#2,'"du "sys temps#(t) 

8:50 PRINT#2: PRINTHE, "Quelle est ta nouvelle re 
ponse! 

84Q INFUT#2,rep#irep#elPFPERE (rep#) 

850 GOTO 4660 

8640 REM tue num 00008 cut nue n006 mu some este sa00 606 mount met 0600 vue mate ab mo tte moe nee mu oo nue ae nome avt moe hate ee mue 

870 REM -> Module reponse exacte 

88 Q K E M eue ce eme 1000 tee see bte sous ao nes ie ete oune som 0006 nee noue 0000 one onu 000 vus mu 0006 mous m0 uit 2000 mes sov ose 

890 PRINT#2,'"C'est exact, "isnomt 

900 nb=nb+1 

910 IF nb=9 THEN 9680 
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920 

950 

940 

950 

960 

970 

980 

990 

1000 
evoi 
1010 
1020 
1050 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1270 
1240 
1250 
1260 
1270 
1290 
1290 
ISSA 
1:00 
1310 


PRINT#2,"Voici un autre verbe" 
FOR i=i TO Z@0B:NEXT ji 
GOTO 54@ 


REM etes snate 0600 sonne eneee m0 cms 00006 00000 mue este 00880 06000 soute 00 Ré 00008 00066 asus onobe 06000 tee 00008 made 600 sous Mae 0000 eute 00608 apbue 
REM -5 Module fin du jeu 
REM emmes mue vence v000e so0ee 000 cou cove e000 ce coœe 00008 sou mom omons amas natee 00006 00000 m0 tee mme dou 0000 mate me sauté 0000 ave ment mue 
FOR izi TO SSOG:NEXT ji 
CLS#HZ:CLS#T: LOCATEHS,2,2: PRINT#3,nom# 
LOCATE#H2,2,2:PRINT#2,'"C'est termine, au 
Fr LL 

FOR iæ1i TO 2OGG:NEXT i 

CLS : END 

DATA CHAHUTER, FLEURER , JOUER 

DATA COFIER,CREER, PUNIR 

DATA FLEURIR, SOLDER, FREMIK 

DATA FRISER,FLECHIR,FROTTER 

DATA LOUER,NOIREOIR, FALIK 

DATA FARFUMER, PEDALER , MESURER 

DATA RACCOURCIR, NOURRIR, REFUSER 

DATA RONFLER, REUNIR, REUSSTR 

DATA SERRER, FUNIKR, BONDIF 

DATA VIEILLIR,TRAHIK, CONVERTIR 

DATA 2272 

DATA JE ,'"lere FERSONNE DU SINGULIER" 
DATA T[U,'"Z2eme FERSONNE DU SINGULIER" 
DATA IL,'"Teme FERSONNE DU SINGULIEK" 
DATA NOUS ,'"'lere FERSONNE DU FLURIEL" 
DATA VOUS ,'""2eme FERSONNE DU FLURIEL" 
DATA ILS,'"Teme FERXSONNE DU FLURITEL" 
DATA "PRESENT DE L'INDICATIF" 

DATA "MIMFARFAIT DE L'INDICATIF" 

DATA “FUTUR SIMPLE" 

DATA "FASSE SIMFLE" 

DATA E,ES,E,ONS,EZ,ENT 

DATA AIS ,AIS,AIT,IONS,IEZ,AIENT 

DATA ERAI ,ERAS ,ERA ,ERONS ,EREZ , ERONT 
DATA AI,AS,A,AMES,ATES , ERENT 

DATA IS,IS,IT,ISSONS,ISSEZ, ISSENT 


DATA ISSAIS,ISSAIS,ISSAIT,ISSIONS,ISSIEZ, 


TENT 
DATA IRAI,IRAS,IRA,IRONS, IREZ, IRONT 
DATA IS,IS,IT,IMES,ITES, IRENT 


ADDITION 


Thème 


Didact d'apprentissage de la technique opératoire de l'addi- 
tion (trois options : nombres à un, deux, trois chiffres). 


Niveau 


A partir de 6 ans (pour la 1° option). 


Intérêt pédagogique 
Connaissances 


— élaboration de la technique opératoire de l'addition avec 
retenues ; 

— réinvestissement d’'acquis : notions d'unités, dizaines et 
centaines, table d’addition. 


Savoir-faire 


— apprentissage (ou rappel) d'une présentation écrite de 
l'opération ; 

— mémorisation des opérations élémentaires (tables) et uti- 
lisation dans l'opération en cours. 
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Déroulement 


Après entrée du prénom du joueur, trois niveaux d'opéra- 
tions lui sont présentés : additions de nombres à un, deux, ou 
trois chiffres. 


Deux nombres, selon le niveau choisi, s'inscrivent dans une 
fenêtre. La moitié basse de l'écran est réservée à la décompo- 
sition de l'opération en addition de nombres simples et aux 
messages de réponses. Les chiffres s'afficheront dans l'opéra- 
tion inscrite en haut au fur et à mesure des réponses. 


AMSTRAD CPC demande au joueur d'indiquer par quels 
chiffres doit commencer l'addition (unités, dizaines, centaines). 


Puis l'opération s'effectue petit à petit : l'enfant additionne 
les unités, puis les dizaines, puis les centaines. Pour chaque 
opération simple, en cas d'erreur, une table d'addition lui est 
proposée, afin qu'il trouve de lui-même la bonne réponse. 


Si le résultat de l'addition simple comporte deux chiffres, le 
programme explique à l'enfant le princ'pe de la retenue et la 
décomposition en dizaines et unités (ou centaines et dizaines). 
Cette retenue est visualisée sur l'opération affichée en haut de 
l'écran et ajoutée dans l'opération simple suivante. Ainsi, l'en- 
fant exécute l'opération de la même manière que sur son ca- 
hier, mais aucune erreur ne pourra être écrite dans l'opération 
elle-même, car elle est immédiatement détectée et doit être cor- 
rigée. 

Quatre additions sont proposées selon le même principe dans 
ce programme. 


Commentaires 


60 Procédure anti-“BREAK”. 

100 à 190 Initialisation des fenêtres et présentation du 
programme. Choix du nombre de chiffres. 

230 à 310 Les chiffres de chaque nombre sont tirés au sort 
séparément. 

350 à 420 Affichage de l'opération. 

430 Mise à zéro des retenues. 

440 à 520 Par où commencer l'opération ? 


560 à 670 Addition des unités. 
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Lignes 560 à 580 : Réponse et test de celle-ci. 
En cas de réponse fausse, envoie de la table 
d'addition, puis nouvelle réponse. 

Ligne 590 : Affichage de la réponse sielle ne 
comporte qu'un seul chiffre. 

Lignes 600 à 640 : Décomposition du résultat 
en unités et dizaines. 

Lignes 650 à 670 : Affichage de la retenue et 


des unités. 

710 à 840 Addition des dizaines. (même déroulement que 
pour les unités). 

880 à 930 Addition des centaines. 

940 à 980 Fin de l'opération et passage à la suivante. 


1020 à 1110 Sous-programme : Table d'addition. Elle est af- 
fichée en cas de réponse fausse pour une des 
additions simples. La variable “t” prend la va- 
leur du chiffre (unités, dizaines, centaines) du 


Hop 


nombre supérieur “a”. 
1120 à 1130 Fin du jeu. 


Particularités techniques 


Les deux nombres sont définis aux lignes 290 à 310. En fait, 
pour faciliter la décomposition des opérations simples, on tire 
au sort séparément les chiffres (AC,AD,AU et BC,BD,BU). 


L'affichage dans une fenêtre permet de placer les chiffres les 
uns juste à côté des autres. Le signe opératoire est placé à l'ex- 
trême gauche de l'opération. 


L'instruction LOCATE est très utilisée, notamment pour pla- 
cer les retenues ou les tables d'addition. 


Les lignes 250, 440 et 480, au début de l'addition des dizaines 
et des centaines, testent le choix (ch) effectué au début sur le 
niveau des opérations et envoient éventuellement à la fin du 
jeu. 


Pour les mêmes raisons, les lignes 600 et 770 modifient l'af- 
fichage de la retenue si l'opération ne comporte que des unités, 
ou des unités et des dizaines. 
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Modifications 


Ce programme est destiné à apprendre à réaliser et à présen- 
ter une addition. L'enfant ne peut passer à l'addition des di- 
zaines que s'il a correctement effectué celle des unités, même 
s'il doit recommencer dix fois |! 


On peut transformer ce programme en un exercice de 
contrôle, en n'acceptant que deux réponses au maximum, par 
exemple. Il faut ajouter dans chacune des trois séries d’opéra- 
tions simples un « compteur » et afficher un score à la fin du 
jeu. 


Adaptations 


« Addition » est un programme complet où l'opération est 
décomposée en séquences simples. 


Le mécanisme opératoire (lignes 560 à 980) peut être incor- 
poré à d’autres programmes sur des applications de l'addition 
(factures, comptes, etc.). 


Il serait aussi possible de moduler les opérations suivantes 
en fonction des résultats : une addition de nombres à deux 
chiffres pour commencer, puis selon le nombre d'erreurs, une 
addition de nombres à trois chiffres, ou retour à une addition à 
un seul chiffre. 







Programme 


Entrée du prénom 
du joueur et 
choix du niveau 


Addition 


Tirage au sort des 
chiffres des 2 nombres 


Affichage de 
l'opération 





Addition des 















Entrée 
de la réponse 


Affichage de la 


Décomposition 
éventuelle en 
“unités” et retenue 


Affichage de 
la réponse 






. Fin de l'addition des 
Unités Centaines Dizaines 
ch =1 ch = 3 ch = 2 





Fin de l'opération 






non 





NO=4 
(nombre d'opérations) 


Organigramme (ns) 





table d'addition 
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10 REM -----——— 

20 REM -----—- ADDITION ----- 

30 REM --- D,Nielsen nov 83 --—- 

40 REM --- Augustin jan 86 --- 

SQ REM = oo oo oo om 

6 ON EREAK GOSUB 11370 

7Q RÊEM ee oo eo mon 
80 REM -* Module presentation 

9Q REM == nue es mea meme me a mo mo me ue men nm 
100 MODE 1 


110 WINDOW#1,2,39,17,25:FAFER#KI1, 13: PEN#K1,0:CLS 

#1 

120 WINDOWKHE=,14,26,4,10:FAFERK2, 17: PFEN#2,0 

1370 WINDOW#KT3,14,26,2,2: FAFERKT,153:PENKS,0 

140 n=0Q 

150 LOCATE#1I,16,2:PFRINT#1, "ADDITION" 

160 PRINT#Ii:INFUT#1,'"Quel est ton prenom ";nom 

SI PRINT#I 

170 PRINT#1,'Additions avec des nombres a un, 

deux où trois chiffres 7" 

180 FRINT#I:PRINT#1,'"Indique ton choix ( 1, 2 

ou 3) 7" 

190 rep#=INFEY#:IF (rep#“:"1") AND (rep$“>"2") 
AND (rep#:>!"T") THEN 190 

200 REM -----—es ee ae ee ae ne ae eee nee eee ae 

210 REM -> Module choix des chiffres 

220 REM eee one ane eo a 

2:10 RANDOMIZE TIME/1000@ 

240 Ch=VAL(rep#) 

250 IF n=4 THEN 1120 

260 ON ch GOTO 290,280,270 

270 ac=INT (RND#1@):bc=INT(RND*#10) 

280 ad=INT (KRND*#10) :bd= INT (RND#10) 

290 au INT (RND#10) : bu=INT (RND#10) 

300 arac+ri00+adxkiD+au 

310 b=bc*xi00+bdxiD+bu 

IQ REM = a a 

3710 REM -5 Module affichage operation 

TAQ REM eee ae ao ae 

350 CLS#H#2:LOCATEH2,4,2: PRINTH2,acs ad; au 

360 IF repf="i" THEN LOCATEHXEZ,4,2:PRINT#2, SPAC 

E# (5) 

370 IF rep#t="2" THEN LOCATE#®E,4,2:PRINT#2,SPAC 

E# (3) 

290 LOCATER2,Z3,3S:PRINTHE, "4" 

190 LOCATE#2,4,4:PKINT#2Z,bcsbd;bu 

400 IF rep+t="1" THEN LOCATEX#®,4,4:FRINT#2, SPAC 

E# (5) 
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410 IF rep#t="2" THEN LOCATEXEZ,4,4:FRINT#2,SPAC 
E# (3) 

420 LOCATEXZ,2,93 PRINTHR, Meme me meme e 

AO CLSHF:redeDirecs0 

44Q IF ch=i THEN 560 

450 CLS#1: PRINT#1: PRINT#1,'"PFar quels chiffres 

commences-tu ton addition 7" 

460 PFRINT#IL:PRINT#I,'"Les unites.....1" 

47Q FKRINT#I,'"'Les diraines,.,.2" 

A8Q IF chx3 THEN PRINT#1,'"Les centaines..z" 
490 FRINT#Ii: INPUT#1,'"Ton choix "'sdeb 

900 IF deb=1i THEN 560 

510 FRINT#1,"TU te trompes, "isnom#s;" reflechis 
encore" 

Jeg FOR i 

D410 REM » Module addition des unites 

rs Es Q F * L= M osooé. sets 600$ even 60m voie ve6 jen rase ane: dons on ES. des aude con edRée taste 000 

D 60 CLS# 1: PRINT# 1: PRINT#1 , "Que font!"yaus"unite 
CS) +lsbus"unite(s) 7" 

370 INPUT#1 ,ru 

200 IF rusrautrbhu THEN trau: GOSUR 1020:G0T0 5460 





590 IF rut10 THEN LOCATEKH®,10,6: FRINT#E ,ru: GOT 
Q 710 

OO IF rur9 AND chæl THEN LOCATE#S,8, 6: FRINT#2 
si "yru-19:GOTO 710 

B1Q FRINT4#L, "C'est exact, !"inomf: FRINTH#I 

GED FARINT#L,"Cela fait 1 dizaine, plus"sru-10; 
Muni te Ce)" 

LEO FRINTAHL,UIL faut donc ecrire"sru-105 "dans 
La colonne des unites et'","I diraine au dessus 
de La colonne", "des dizaines" 

64Q FOR ii TO POBDINEXT i 

630 LOCATE#HS,10,6:FARINTÉHS , ru 10 

660 LOCATEHS,7, 13: PRINTHSZ, "41" 

670 FOR i=l TO GQOB:NEXT ji 

6 83 A te E M emmet tee somme o0bse 03008 ones 10000 omnee 00000 nomme 600 0092 00e 10006 0000 40408 00000 mate 0000 mouse 006 mnt me0e com ane evo aadt 20006 ose 00008 0000 

690 KREM -* Module addition des diraines 

700 REM 00100 see ausse m060 cet mes sue ce s000 n0e ébus eou 0000 0600 ones m9 sa66 uen au 2006 unes ane oéane run ae vtt ame 66000 ven 06e sou 

71Q IF chi THEN 940 

720 CLS#1:FRINT#HI: FRINT#1,'"Que font''sad;"dizai 

ne(s) +'sbds'"'dizaine(s) 7" 

72Q IF rux9 THEN PRINT#1I,'"plus une retenue'i:re 

ds] 

740 INPUT#1i,rd 

750 IF rdirad+tbd+red THEN tsad:GOSUB 1220:GO0TO 
720 

76Q IF rd#1Q THEN LOCATE#2,7,6:PRINT#H#E ,rd:GOTO 
880 
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77@ IF rd>9 AND ch=2 THEN LOCATE#E,5,6:FRINT#2 
"ii "srd-1G:GOTO 880 

780 FRINT#1,'"C'est exact, "inom#: FRINT#I 

79Q PRINT#1,'"Cela fait 1 centaine, plus'"s;rd-10 
s'diraine(s)" 

800 FRINT#1,'"IL faut donc ecrire'"isrd-1035 "dans 
la colonne des dizaines et","1 centaine au des 
sus de la colonne" ,'des centaines" 

810 FOR i=i TO 2QOG:NEXT ji 

820 LOCATE#HZ,7,6:FRINTH#2,rd-10 

870 LOCATE#HS,4,1:PRINT#S, "+1" 

840 FOR ii TO 6QBB:NEXT ji 

re] 5 (a) FX E M 00 eue eee cons os este 0660 000 es nenee eee 06000 00e 0000 00 on00 on0ee onnes oué OU tune tout 06008 o6due 0100 su008 0008 00008 0000 06060 00000 0000 

800 REM -% Module addition des centaines 

63 7 Q FX E M ete sa mme eme come con 0000 see ee ne oto0e 00006 00600 00600 20009 00000 von mans outee 00008 ane voue 0006 0000 6000 corse 008 0000 0008 eo eoa08 oo 

890 IF chx? THEN 940 

690 CLOHI:PRINTHL:E PARINTHL,'"Que font''sacs "centa 
ine(s) +'ibecs'centaine(s) 7" 

OO IF rd:9 THEN PRINT#HI,'"plus une retenue'":re 
ce 1 

910 INFUT#I,rc 

PQ IF res ractbhetrec THEN trac! GOSUR 1020:G0OTO 
890 

QQ IF rei1iQ THEN LOCATE#2,4,6:FRINTHZ ,re ELSE 
LOCATEHS , 2, 6: PRINTHE,"1 "src-10 

DAQ CLS Is PRINTALE PRINTHI, "Bravo "inomé: FRINTÉH 
l 

950 FRINT4#1,"Voici maintenant une autre operat 
ion" 


97Q FOR isi TO IGGU:NEXT i 

980 GOTO 240 

990 REM ——- 2 oem a a a ee ne mt ne 

1000 REM -* Module table d'addition 

1ai Q REM mme man some ve ane sove nues sou moe anome sv00 mé nv ua 20006 moe nav ma ee soaue 000 oo 000 be aude 0008 006 nous mon 0006 

1020 CLS#I:PRINT#I,"TU te trompes, "snom#s;" re 
lis la table d'addition" 

10:50 FOR i=i TO 1@BB:NEXT ji 

1040 CLS#HIi:FOR iQ TO 10 

1050 PRINT#H#1,t;"+"gig "ets tæ+i 

106Q NEXT ji 

107QG FOR ii TO ZOOG:NEXT :i 

1080 FRINT#I,'"As-tu trouve la bonne reponse ":; 
noms!" 7" 

1090 FRINT#H1,'"Appuie sur une touche" 

1100 iF=INFHEY#:IF it='"" THEN 1100 

111 RETURN 

1120 CLS:PRINT "C'est termine": PRINT "AU revoi 
Fr !"inomé: END 

1150 CLS :END 


SOUSTRACTION 


Thème 


Didact d'apprentissage de la technique opératoire de la sous- 
traction (trois options : nombres à un, deux ou trois chiffres). 


Niveau 


A partir de 6 ans (pour la 1° option). 


Intérêt pédagogique 
Connaissances 


— comparaison de chiffres et de nombres ; 

— élaboration de la technique opératoire de la soustraction ; 

— mécanisme de la « retenue » ; 

— réinvestissement d’acquis : notions d'unités, de dizaines, 
de centaines, tables d'addition. 


Savoir-faire 


— apprentissage (ou rappel) d'une présentation écrite de 
l'opération ; 

— mémorisation des opérations élémentaires et utilisation 
dans l'opération en cours. 
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Déroulement 


Le joueur entre son prénom, puis son choix de niveau d'opé- 
ration (avec des nombres à un, deux, trois chiffres). 


Une opération s'inscrit dans une fenêtre. Chaque chiffre étant 
tiré au sortentre 0 et 9, il est possible d'obtenir une soustraction 
« impossible » à faire (le premier nombre est plus petit que le 
second). Si tel est le cas, l'ordinateur demande au joueur s'il 
peut faire cette soustraction. Une autre opération est alors pro- 
posée. 


Il faut ensuite indiquer par quels chiffres la soustraction doit 
commencer (unités, dizaines, centaines). 


L'opération débute alors par la soustraction des unités. Deux 
cas peuvent se présenter : 


— AU > BU (AU est le chiffre des unités du nombre A, BU 
celui du nombre B) : la soustraction est possible et l'enfant 
entre sa réponse. 

— AU < BU : le joueur tape « N » pour indiquer qu'il ne peut 
pas faire cette soustraction. Le programme propose alors 
de prendre une dizaine et la décomposition de cette rete- 
nue est expliquée en bas de l'écran et affichée dans l'opé- 
ration. La soustraction devient alors possible et le résultat 
est demandé. 


En cas d'erreur dans cette soustraction simple, c'est une table 
d'addition (du chiffre de B) qui est proposée. L'enfant n'a donc 
pas directement la réponse, mais doit utiliser les renseigne- 
ments de cette table pour la découvrir. 


En fonction du niveau choisi, le programme continue par la 
soustraction des dizaines, puis des centaines, selon le même 
principe. || rappelle la retenue utilisée dans la soustraction pré- 
cédente s'il y a lieu. 


Le programme propose quatre opérations à la suite. 


Commentaires 


100 à 180 Initialisation et présentation du programme. 
220 à 300 Tirage au sort des chiffres des deux nombres. 
340 à 410 Affichage de l'opération. 


420 à 520 Sens de l'opération. 


530 à 550 


560 à 590 


600 à 630 


640 à 660 
670 

680 à 690 
730 à 860 


900 à 1000 


1040 à 1100 


1140 à 1240 


1280 à 1370 
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Ligne 420 : Si A<B (soustraction impossible), 
le programme va en 1280. 

Lignes 430 à 520 : Demandent au joueur par 
où il veut commencer. 


Affectent aux variables N1 et N2 (chiffres de 
l'opération), T$ et V$ (noms des unités), X (place 
où la réponse doit être affichée) les valeurs cor- 
respondant à la soustraction des unités. L'opé- 
ration elle-même est effectuée en sous- 
programme (GOSUB 730). 


Si CH (choix du niveau) est 2 ou 3, affectent aux 
variables les valeurs correspondant à la sous- 
traction des dizaines. 


Si CH est 3, affectent aux variables les valeurs 
correspondant à la soustraction des centaines. 


Fin d'opération. 
Envoie à une autre opération. 
Fin du programme. 


Opération. 

Ligne 740 : S'il y a une retenue de l'opération 
précédente, envoie au sous-programme 1040. 
La réponse est entrée ligne 770 : sielle est « N » 
(pour « NON »), le programme va en ligne 900 
(retenue). 

Ligne 790 : Convertit la chaîne REP$ en sa 
valeur numérique si l'opération est possible. 

Ligne 800 : Si la réponse est bonne, envoie 
en 830. 

Lignes 810 à 820 : Réponse fausse. Envoie 
au sous-programme d'affichage de la table 
d'addition puis attend une nouvelle réponse 
(GOSUB 1150). 


Retenue. Même déroulement, mais en prenant 
une unité supérieure : décomposition de la re- 
tenue. 


Affichage et explications de la nouvelle opéra- 
tion en cas de retenue dans la précédente sous- 
traction. 


Sous-programme : Affichage de la table d'ad- 
dition en cas d'erreur de calcul mental. 


Interroge l'enfant si l'opération est impossible 
(A<B). 
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Particularités techniques 


Une soustraction de nombres à deux ou trois chiffres étant, 
en fait, formée de deux ou trois soustractions simples, la dé- 
composition de chacune des opérations se fait à l'intérieur d'un 
programme unique (730 à 860) dans lequel les variables sont 
affectées de la valeur correspondant à la soustraction en cours. 


Chaque résultat exact (chiffre et retenue) s'inscrit dans l'opé- 
ration elle-même, après avoir été expliqué et contrôlé dans la 
fenêtre de travail (lignes du bas de l'écran). 


Modifications 


Ce programme est lui aussi destiné à APPRENDRE à effectuer 
une soustraction. 


Pour l'utiliser comme contrôle de connaissances, les propo- 
sitions faites dans addition sont encore valables (installation 
d'un compteur d'entrées). Les lignes 420 à 520 peuvent alors 
être supprimées. 


Si l'on veut éviter l'affichage d'opérations impossibles, il suf- 
fit de supprimer les lignes 1250 à 1370 et de modifier la ligne : 


420 IF A<B THEN 250 


Il faut toutefois noter que la comparaison de deux nombres 
et la reconnaissance des cas dans lesquels on ne peut pas faire 
une soustraction n'est pas un exercice inutile. 


Augmenter ou diminuer le nombre d'opérations proposées 
au joueur se fait en ligne 240 (IF N<4). 


Adaptations 


Ce programme peut, lui aussi, être utilisé à l'intérieur d'autres 
programmes de raisonnement (en supprimant les lignes 530 à 
630 et en affectant aux variables les valeurs du programme). 


Il est bien sûr possible de faire travailler les enfants sur des 
nombres plus grands (quatre ou cinq chiffres) ou afficher des 
nombres de niveau différent (A=3 chiffres, B=2 chiffres par 
exemple). 


Adapter ce programme à l'utilisation de nombres décimaux 
ne devrait pas non plus poser de gros problèmes. 
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Programme 


Choix du niveau 


Tirage au sort 
des chiffres 








Soustraction 















Affichage de 
l'opération 













Est-elle 
possible ? 






Par où la 
commencer 


Vrai 


Soustraction des 




















Sans retenue 


Avec retenue 









Réponse 


Affichage de la 
table d'addition 


Fin de la soustraction des 













Dizaines 
ch=2 





Centaines 
ch=3 












nombre d'opérations 





Organigramme 


oui 
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10 REM ----—— ee 

20 REM ----- SOUSTRACTION ----— 

30 REM --- D.Nielsen nov 83 --- 

40 REM --- Augustin fev 86 --- 

SQ REM cer one one a mt me ns 

60 ON BREAK GOSUB 4680 

7Q REM ee ee ae oo eo 
8Q REM -5 Module presentation 

QQ REM ee ee ve eo 
100 MODE ji 


110 WINDOW#H1,2,79,17,25: FAFER#1, 13: PEN#K1,0:CLS 
#1 

120 WINDOW#K#2,12,28,4,10:FAPERK2, 13: PENK2,0 

170 a$f(1)="unite":sa#t(2)="dizaine"sa#t(3)="centa 
ine" 

140 LOCATE#HI,12,2:FRINT#1, '""SOUSTRACTION" 

150 PRINT#1:INPUT#1,'"Quel est ton prenom ";nom 
Fs FRINT#1 

160 FRINT#1,'Soustractions avec des nombres," 
a un, deux où trois chiffres 7" 

170 FRINT#I:PRINT#I,"Indique ton choix ( 1, 2 
ou 3) 7" 

18Q Ch$=INÉEY#:IF (ch#<"1") AND (ch#<>:"2") AN 
D (ch#<#"i") THEN 180 

190 REM > eee ea eee eee 

200 REM -> Module choix des chiffres 

210 REM ----— eee eee ce ee ae ee 

220 RANDOMIZE TIME/1000 

250 ch=VAL(ch#) 

240 IF n=4 THEN 6680 

250 ON ch GOTO 280,270,240 

260 ac=INT(KND#10):bC=INT(KND#1@) 

270 ad=INT (RND*#10) :bd:=INT(RND#10@) 

280 au=INT (RND#1@):bU=INT(RND#10) 

290 aracrki00+adxiQ+au 

300 b=bc*#100+bdx1i0+bu 

SIQ REM == 

320 REM -; Module affichage operation 

TIOQO REM ee a a eo te a me eo ee 

340 CLS#2:LOCATE#2,4,2:PRINT#2,aci;"  "sad;" " 
sau 

350 IF ch$é="1" THEN LOCATE#H2,4,2:PRINT#H#2,SPACE 
(7) 

360 IF ch$="2" THEN LOCATEXH?,4,2:PRINT#2,SPACE 
(5) 

37Q LOCATERE,1,3:FRINT#E,'"-" 

380 LOCATE#2,4,4:PRINT#2,bes;"  "sbds"  "sbu 
390 IF ch$é="1" THEN LOCATE#®,4,4: FRINTH2,SPACE 
(7) 
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400 IF ch$="2" THEN LOCATE#E,4,4:PRINT#E,SPACE 
$ (5) 


410 LOCATEKX2,2,5S8 PRINTHZ , Mae ce ne ne ae eme eme me ! 
420 IF a“b THEN 128680 
30 ret=0 


44Q IF ch=i THEN 5350 

450 CLS#H#i: PRINTHI: FRINT#1,'"PFar quels chiffres 
commences-tu'",'"ta soustraction 7?" 

460 FRINT#HI:PFRINT#1,'"Les unites...,..1" 

47Q FRINT#1,'"Les diraines...2" 

480 IF ch=3 THEN FRINT#1,'"Les centaines..." 
490 FPRINT#1:INPUT#1,'"Ton choix ";deb 

500 IF deb=1i THEN 530 

10 PRINTHI, "Tu te trompes, "inom#é;" reflechis 
er cor" @ ! 

320 FOR ii TQ 1QOB:NEXT i:GOTO 450 

JaQ misaurnerbusxel 

DO tira (1) 1 vVEma# (2) 

JJQ GOSUR 7230 

960 IF chxl THEN 640 

J7/70 nmisadinerbdix#z 

DUO Lhraf (2) 2 va (CT) 

990 GOSUR 7350 

6QQ IF chez THEN 640 

10 mivacinerbesxms 

GO taf (CT) 

630 GOSUB 7:70 

GAQ FARINT# Le PRINTAL, "Bravo, !"inomf 

650 menti 

660 FOR il TO ZSOB:NEXT ji 

670 GOTO 240 

680 CLS: FRINT "C'est termine, "isnom#t: FRINT'!'AU 
mevoir! 

69Q END 

7 @ Q F4 E M ete nues 0300 0000 0000 06006 LUS 2000 ame 2000 0606 00e 100 0066 bte eue 066 06e nue 2000 006 an 2000 ous 2000 nn 0000 ent 2000 06e amuse 

710 REM -5 Module soustraction 

7. 20 FR E M in soie COL it 505 Fa vdne 6000 ete co Ve Gi Go, C2 SV éme nes on ob Dove Si Lg ci Gus ns ae 

730 CLSH1: PRINT#I 

74Q IF ret=i THEN GOSUR 19240 

750 PRINT#1,'"QOue font'iniist#;"(s) -'"'ineit#i"(s 
) 1 

760 FRINTHI:PRINTHI1,"Si tu ne peux pas faire € 
ette'",'"soustraction, tapes --N-" 

770 PRINT#i: INPUT#1,rep#:rep#eUPPERS# (rep#) 
780 IF rep#="N" AND nitn2 THEN 900 

790 r=VAL(rep#) 

800 IF r=ni-n2 THEN 870 

81Q GOSUR 1150 
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820 CLS#1:GOTO 750 

820 PRINTHI:PRINT#1, "C'est exact, "snomt 

840 LOCATEK2,19-5%%, 6: PFRINT#2,r 

850 FOR i=1i TO 2S0D0:NEXT i 

860 RETURN 

870 REM eu ve sonne oomee 0000 muse oenes 10000 mans avons oevas ontne oo6ee onu 000 nage 06000 00006 souus ad opuue mo0e oomee 00006 0008 APE 0000 one 00000 00098 000 

880 REM -; Module retenue 

8 Le) Q K E M ee nm 00008 nes ose 0008 ma 0006 mets 0000 mens rhume 0000 18 una te 0000 606 anus aase 0646 tte u00m 0006 eut 2008 dde anus 0006 0000 sense 

900 CLSH1:FRINT#I 

910 FRINT#1L,"IL faut donc prendre une "3v#,'et 
l'ajouter aux'iniit#ts;"(s)" 

920 FRINT#1,'"Cela fait'snit+iQist#és"(s)" 

9IQ retz=i 

94Q LOCATERZ,19-5S%x,2:PRINT#HS, "1" 

9S0 FOR ii TO 1SQO0:NEXT i 

9600 FRINTH#I: FRINT#1, "Que font!'ani+i@s "ete mu les 

970 INFUTH#I,r 

980 1F reni+i0- -nZ2 THEN 870 

990 GOSUE 1150 

1000 GOTO 960 

1 @ l Q F E M mme uu000 nee are 2000 same 2000 une 00000 0000 nan 0000 6006 anses muse 2000 00006 nue nue 2406 0606 0080 00000 me onto 6000 een onu 0000 nets 

1020 KEM +5 Hédu Le FRÉANUS RESARAQNES 

1 Pa] ms Q F E M obéie cobdé dan mé tnt soute ane asie me Sos om m0 ovuue oov0n 

1040 FKINT#H1,"Nous avons utile Une dep ou 

r effectuer la soustraction", "precedente" 

1050 FKRINT#1,"L'operation a faire maintenant", 

est donc'inig"-t"tsnati 

1060 nen2+liretrQ 

107Q LOCATERZ,18-5%%x,4: FRINTH#R, "14" 

1080 FOR ii TO 6QGG:NEXT i 

10978 CLSHILSFRINTHL 

1100 RETURN 

1110 REM --— ue ne nee ae nee ne a a a 

1120 REM -> Module table d'addition 

1130 REM = mme ee a on ne 

1140 CLS#i 

1150 PRINT#1,"Tu te trompes, "inomé,'relis ta 

table d'addition" 

1160 FOR ii TO 1GOD:NEXT i 

1170 CLS#i 

1180 FOR i=Q TO 1Q@ 

1190 FRINT#HI,n23;"4taig lets mai 

1200 NEXT ji 

1210 FRINT#I,'"As-tu trouve la bonne reponse ": 

nom#s;" 7" 

1220 FRINT#1,'"Appuie sur une touche" 

1250 i$= INKEŸ#: IF i$f="" THEN 1250 

1240 RETURN 
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1250 REM = oo one os one one aa one a ee mo 

1260 REM -% soustraction impossible 

1270 REM 0600 one mutus s000 0006 vnum same tue 0006 0006 ons 2000 000 aoane anne 0000 0000 00e nu 1000 ous ann 00600 mue mode ce anus mue 008 unes 

12680 CLSHi:FRINT#I 

1290 FRINT#1,'"Est-ce que tu peux faire", ,'"cette 
operation T's PRINT#I 

1:00 INFUT#1,"Qui -% 1 / Non -5 2 "st 

131Q IF te=2 THEN 1550 

1320 FRINT#I:PRINT#1, "Attention “inomfi;" regar 
de bien'"','"les deux nombres", ,'"et reflechis enco 

re! 

1350 FOR ii TO ZSOG:NEXT ji 

1340 GOTOQO 1280 

1550 FRINT#I:FRINTHI,'"TU as raison, "inom#s;" mn 
ous allons'",'"donc faire une autre operation" 
1560 FOR ii TO ZSOG:NEXT ji 

1570 GOTO 250 


MULTIPLICATION 


Thème 


Didact d'apprentissage de la technique opératoire de la mul- 
tiplication (trois options : multiplication par un nombre à un, 
deux, trois chiffres). 


Niveau 


A partir de 8 ans (Cours élémentaire 2° année). 


Intérêt pédagogique 
Connaissances 


— élaboration et décomposition de la technique opératoire de 
la multiplication par un nombre à un, deux, trois chiffres ; 

— réinvestissement d'acquis : notions d'unités, de classe, 
technique de l'addition. 


Savoir-faire 


— apprentissage (ou rappel) d'une présentation écrite de la 
multiplication ; 

— mémorisation des opérations élémentaires (tables d’addi- 
tion et de multiplication) et utilisation dans les séquences 
opératoires. 
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Déroulement 


Le joueur note son prénom, puis son choix de niveau : le 
premier nombre À est toujours un nombre de deux ou trois 
chiffres, mais il peut être multiplié par un nombre B formé de 
un, deux, trois chiffres. 


L'opération s'inscrit, sur la moitié haute de l'écran. La décom- 
position de l'opération en multiplications simples se fera en bas 
de l'écran. 


AMSTRAD CPC propose d'abord de multiplier A par le chiffre 
des unités de B. L'enfant exécute ce travail en trois multiplica- 
tions simples successives. À chaque fois, s’il y a lieu, la retenue 
est expliquée et ajoutée à l'opération suivante. 


Si la réponse est fausse, une table de multiplication s'affiche 
pendant dix secondes et une nouvelle réponse est demandée. 


Si la réponse est bonne, elle s'inscrit (avec la retenue) dans 
l'opération en haut. 


Selon le niveau choisi, AMSTRAD CPC demande ensuite de 
multiplier À par le chiffre des dizaines de B, puis par celui des 
centaines. Chaque séquence est décomposée en trois multipli- 
cations simples, comme pour les unités. Les chiffres s’inscri- 
vent dans l'opération sur une 2° et une 3° ligne. 


Enfin, le programme demande à l'enfant d’additionner ces 
deux ou trois lignes de résultats pour obtenir la réponse finale. 


À chaque opération, l'enfant peut arrêter ou poursuivre le 
programme avec une autre opération. 


Commentaires 


100 à 140 Initialisation, présentation et choix du niveau. 


180 à 240 Tirage au sort des nombres. La valeur du nom- 
bre de chiffres de chacun des deux nombres est 
fonction du niveau choisi. 


280 à 320 Affichage de l'opération. 


360 à 540 Multiplications successives. Les deux boucles 
(i=1 to nb2) et (k=1 to nb1) assurent toutes les 
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possibilités de la décomposition en petites 
multiplications. En cas d'erreur la table de mul- 
tiplication est appelée. 


580 à 800 Une fois les multiplications faites, il s’agit d’ad- 
ditionner pour obtenir le résultat final. Les ré- 
sultats successifs ont été conservés dans un 
tableau à deux dimensions : rli, k). 


840 à 950 Fin du programme. L'Amstrad demande si le 
joueur veut poursuivre le programme, ou s'il 
désire s'arrêter. 


990 à 1070 Sous-programme. Utilisé en cas d'erreur, il af- 
fiche la table de multiplication pour permettre 
à l'enfant de voir son erreur. Une nouvelle ré- 
ponse sera demandée. 


1110 à 1190 Sous-programme. Utilisé lors d'une retenue 
précédente, il explique qu'il faut ajouter cette 
retenue au nombre suivant. 


Particularités techniques 


L'affichage est entièrement simulé par des LOCATE, en effet 
il est préférable de toujours conserver la multiplication à l'écran. 
Les lignes de l'écran 20 à 25 servent uniquement pour les com- 
mentaires. 


Les multiplications simples sont réalisées dans deux boucles 
imbriquées. De cette manière, il suffit de jouer sur les indices 
du tableau à deux dimensions pour conserver les résultats. 


Modifications 


Ce programme visualise une présentation claire de la multi- 
plication et l'enfant y est guidé pas à pas. 


Les erreurs sont immédiatement détectées dans chaque étape 
et seules les réponses exactes peuvent être inscrites dans l'opé- 
ration. || est donc très complet. 


On peut, toutefois, ajouter, en cas d'erreur d'addition (de re- 
tenue, ou dans l'addition finale) l'affichage d'une table d'addi- 
tion (présentée en deux parties côte à côte, comme la table de 
multiplication, pour des raisons de place sur l'écran). 


98 | AMSTRAD A L'ÉCOLE 


Adaptations 


Comme pour les trois autres programmes d'opérations, on 
peut utiliser ce programme à l'intérieur d'une résolution de pro- 
blème (attention à la place en mémoire). 


L'adaptation aux nombres décimaux pourrait se faire de deux 
manières : 
— expliquer à l'enfant où placer la virgule ; 


— lui demander où il veut placer la virgule et ne lui donner 
l'explication qu'en cas d'erreur. 
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Programme 


Multiplication Entrée du prénom du joueur 


et choix du niveau 


Tirage au sort 
des chiffres 
des deux nombres 





Affichage de l'opération 
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10 REM 
20 REM ---- MULTIPLICATION ---- 
310 REM --- D.Nielsen aou 85 —-—-— 
40 REM --- Augustin mar 86 -—--— 


0Q REM = eine sons ner ae me ee men ns en 

6@ ON BREAK GOSUB 950 

7Q REM mu vec muscu ne ee es ane a eo ee nu ou out ou 
80 REM -* Module presentation 

GO: REMISES SSSR RS ES nn PT er En En 


10Q MODE 1:CLS:PRINT "MULTIPLICATION" 
110 LOCATE 1,1@:PRINT "Multiplication de nombr 


es de ? où 3",'"chiffres par un nombre'",'de 1 a 
3 chiffres" 

120 FRINT:FRINT "Quel niveau choisis-tu rPM,MCI 
...facile a 5..,difficile)" 


150 1F=INFEYÆS:IF 1#="" THEN 130 

140 ch=VAL(i#):IF chi OR ch:5 THEN 170 
LD REM. see ee or er ee oo ee 
160 KEM -* Tirage au sort des nombres 
LADREM eee eme ne pa ei moe PSP ee es ee de 
180 IF chel THEN nbi=z2snbzsi 

19Q IF che? THEN nbi=3:nbesi 

200 IF ch=3 THEN nbi=2:nbzz 

210 IF ch=4 THEN nbi=ï%s:snbes 

220 IF cheS THEN nbis=3:nb2es 

2270 FOR i=1i TO nbi:a(i)=INT(RND#9)+1:NEXT i 

240 FOR i=i TO nb2:b(i1)=INTC(RND#9)+1:NEXT ài 

200 REM SressssssesesemeneenRene eme eme 

260 REM -* Affichage de l'operation 

LD REM IEEE sers nee me 

280 CLS 

290 FOR i=i TO nbi:LOCATE 57-(i%6) ,2:PFRINT ai 
):NEXT ji 

200 FOR i=i TO nb2:LOCATE 57-(i%6) ,5:PRINT b(i 
)3NEXT i 

310 LOCATE 14,S:FRINT "x" 

320 FOR i=i TO 22:LOCATE 55-1i,6: PRINT "-'"sNEXT 
i 

SO  REM. esse ee oi neo om on on us es 

340 REM -% Multiplications 

SOQ REM LS einen se does 2e pe 2 es ES qe mon Den te ee ce 

360 FOR i=i TO nb£ 

270 FOR k=i TO nbi 

2680 FOR j=20 TO 2S$:LOCATE 1,)j:PKINT SFACE$ (39) 
=NEXT j 

390 LOCATE 1,20:FRINT "Tu vas multiplier'"';a(k) 
;'"par':;b(i) 

400 FRINT "Que font'sack)s"x "sb (is 

410 INFUT rep 


2 
2 
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420 IF repsa(k)xb(i) THEN 440 

450 GOSUB 99@:GOTO :80 

44Q IF rt:Q THEN GOSUR 1110 

450 rCi,k+i)=rep MOD iG:rt=rep\io 

46Q LOCATE 4%-(ix6)-(k#6) ,7+C1#2):FRINT rCi,.k+ 
1) 

47Q IF rt:@ AND nbl:k THEN LOCATE 1,23:PRINT " 
nous ecrivons''ir(i,k+i)s "dans 1 ‘operation et g 
ardons''srt,'"'en retenue'":LOCATE 32-(k#6) ,1:FRIN 
T JFÉ 

480 IF rt:9 AND kH=nbi THEN LOCATE 37-(k#6)-(1% 
6) ,7+ CRDI PRINT rtir (i,k+i+i)zrtirteQ 

490 FOR j=1i TO SSOG:NEXT j 

300 NEXT EH 


19 LOCATE 1,1: PRINT SFACE# C9) 

Je NEXT i 

Je FOR tes TO 2S:LOCATE 1L',t: PRINT SFACE# (19) 
INEXT € 


J40 [IF ChEs THEN 840 ELSE LOCATE 1,20:FRINT MI 
1 faut maintenant additionner'",'"ces multiplica 
tions" 

ne) a Pa] FX F M ame to00 as nuit 2000 not sum some ute 2006 ont 2000 2006 00 avoue 10000 0000 0006 onaut 2000 0008 bte 008 ne tee 2006 on nome été ma some 

260 REM ++ fdditions 

5 7 (Pa) Ft L: M untta sntee 00008 00000808 abèèn on sa +088 en own evene shoes emmné ane veut 000 m0 00000 ame somme mew ei conne oame 00e 0000 ae 0600 00008 0nuae 

90 LOCATEÉ 1,16: FARINT 1 (1,5%) 

290 LOCATEÉ 1,288 FRINT "Nous allons d'abord pos 
ets (1,2) 

600 FOR tel TO SSOB:NEXT € 

610 FOR kw TO nbi+nmbe2+1i 

620 FOR ter TO 25:LOCATÉE LC: PRINT SFACEXC2:9) 
!NEXT tiLOCATE 1,20 

GO rtads@Q: PRINT que font: 

640 FOR i=1 TO mb 

SO IF i+1 THEN FRINT !æ+ts 

66Ù0 rtadertad#r C1,k):FARINT rCi,k):s 

67Q NEXT ji 

880 IF rtd:Q THEN rtacdaertadt+trtds PRINT !élsrtds 
"de retenue !: 

690 IF rtad=Q THEN 800 

70 INFUT rep? 

710 IF repz=rtad THEN 750 

720 PRINT "Tu te trompes, reflechis" 

730 FOR j=i TO SSQO:NEXT j 

740 GOTO 4620 

780 IF rtad#19 THEN rtd=@:G0T0 780 

760 rtd=rtad\i@i:rtadertad MOD 10 

77Q PRINT "nous ecrivons'irtadsi "et nous reteno 
ns''irtds "pour l'addition suivante" 

78Q LOCATE 45%-(k#6) ,16:FRINT rtad 
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790 FOR j=i TO ZSGO:NEXT j 

800 NEXT Ek 

BID REM esse a ae ce on one mt on 

G2Q KREM -5 Suite ou fin de programme 

850 REM = ve mu one me ne me cos ae mc son vo ane ue ne mo so on mie ea ae av on rs ne 

840 CLS:PRINT "Cette operation est terminee! 
85Q FKRINT "Une autre operation (O/N) 7" 

G6Q 1F=INEVE#SIF i1#e"" THEN 8460 

870 i#=UPFFERE (Ci) 

880 IF i#='"N" THEN 950 

89Q IF 1#£2:"0" THEN 860 

QG FOR ii TO nb? 

910 FOR ke TO nbi+nba+i 

V2 rCi,k) #0 

9EQ NEXT k,i 

940 (LS: RUN 

930 FAINT "Au revoir '!': END 

© és Q Ft F M st 4000 600 2060 babe eee ed66 out ones see vtr 086. 2480 mu mt 000 Aédte evee des ue mes 10 2000 Mt. 0000 0 ve 06280 on vue EN 

970 KEM +5 Table de multiplication 

7] 63 (Pal l F5 M so0m nes 00000 mme meme sages eee eunee om see sooe ce somme core mevee save ane menu on60e 000 made 00008 Ouen 00000 ovree osé ootas 6006 avues eue save 

990 FOR ji TO ZA4iLOCATE 1, js FRINT SPACE# (39) 
INEXT j 

1000 LOCATE L',IS: PRINT EU te trompes, relis c 
ette table’ 

1010 FO ji TO 10 

1020 IF j35 THEN LOCATE 20,1%4+j ELSE LOCATE 1, 
LE j 

LOOQ PRINT jy tata Ci) get js Ci) 

1840 NEXT j 

1050 FO jxl TO SOOGINEXT j 

1060 FO j3x18 TO 248 LOCATE 1, js PRINT SPACE C59 
)2NEXT j 

1070 RETURN 

1OBQ REM ee men one te ae eo eo te 

1090 KREM -% Retenue precedente 

1 { A0 REM nes monte meme some mn meme moe sente motte some sevee voue aus oavme ooûoe te ore maue orme meteo meme ven ones done mon moon moon meute oem 

1110 FOR t=20 TO 24: LOCATE 1,t:FRINT SFACE#(CI9 
):NEXT 

1129 LOCATE 1,20:FRINT "IL faut maintenant ajo 
uter la retenue'",'"de la multiplication precede 
nte" 

1150 FMRINT "Que font'sreps"+"irts 

1140 INFUT repli 

1180 IF repisrep+rt THEN 1190 

1160 FARINT "Tu te trompes, reflechis" 

1170 FOK ji TO SOOQINEXT j 

118Q GOTO 1110 

1190 repsrepiirts@:RETURN 


DIVISION 


Thème 


Didact d'apprentissage de la technique opératoire de la divi- 
sion (cinq options différentes). 


Niveau 


À partir du Cours moyen 1° année. 9 ans et plus. 


Intérêt pédagogique 
Connaissances 


— élaboration et décomposition de la technique opératoire de 
la division par un nombre à un ou deux chiffres ; 

— notion de multiple, de diviseur ; 

— réorganisation des acquis sur l'addition, la multiplication, 
la soustraction et l’ordre des nombres. 


Savoir-faire 


— apprentissage (ou rappel) d'une présentation écrite de la 
division ; 

— mémorisation des opérations élémentaires et utilisation 
dans les séquences opératoires. 
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Déroulement du programme 


Le joueur va d’abord choisir son niveau de jeu : 


1 : division d'un nombre à 1 chiffre par un nombre à 1 chiffre 
: division d'un nombre à 2 chiffres par un nombre à 1 chiffre 
: division d’un nombre à 3 chiffres par un nombre à 2 chiffres 


: division d'un nombre à 4 chiffres par un nombre à 2 chiffres 


OO PB © NN 


: division d'un nombre à 5 chiffres par un nombre à 3 chiffres 


Une opération va ensuite s'inscrire en haut de l'écran, la par- 
tie basse étant réservée pour les questions et les commentaires. 


Si le niveau de jeu est supérieur à 1, le joueur va d'abord 
indiquer quel nombre doit être divisé pour commencer (en 
fonction du diviseur). En cas d'erreur, le programme détectera 
le type d'erreur faite et guidera le joueur pour formuler une 
nouvelle réponse. Ce nombre va s'afficher en bleu, à l'intérieur 
du dividende. 


Les différentes divisions (selon le nombre de chiffres du quo- 
tient) vont ensuite s'effectuer selon le même principe. Le joueur 
doit trouver combien de fois B {le diviseur) est contenu dans le 
nombre à diviser. || va proposer un chiffre : l'ordinateur inscrit 
alors, en bas de l'écran, le produit correspondant et demande 
au joueur si cela lui convient. Il doit donc comparer ce produit 
et le nombre à diviser, puis choisir éventuellement de recom- 
mencer avec un autre chiffre (produit trop grand, par exemple). 
Toute erreur est détectée par le programme. Ensuite, l’ordina- 
teur calcule et affiche le reste de la division : de nouveau, il 
appartient au joueur de comparer ce reste au diviseur et de 
juger de sa réponse. Si cette division est exacte, les valeurs 
correspondantes (quotient, produit et reste) s'affichent à leur 
place dans l'opération en haut de l'écran et si la division n'est 
pas terminée, la nouvelle opération s'y inscrit (reste de l'opé- 
ration précédente + chiffre suivant du dividende). 


L'ordinateur comptabilise chacun des essais pour trouver le 
quotient juste et affiche ce « score » à la fin de l'opération. 


A la fin de chaque opération, on peut choisir de continuer 
avec une autre opération (de même niveau) ou d'arrêter. 
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Commentaires 


90 à 130 


170 à 290 


330 à 350 


410 à 510 


550 à 770 


Initialisation et présentation du programme. 
Ligne 90 :initialisation de RND, nombre aléa- 
toire, pendant que le joueur lit la présentation. 


Tirage au sort des nombres. 

Lignes 180 à 200 : A est le dividende, ch (ni- 
veau de jeu) représente le nombre de chiffres 
de A. Chacun de ces chiffres Al) est tiré au sort. 
La ligne 210 tire au sort le même nombre de 
chiffres pour B (diviseur). 

Lignes 230 à 250 : la valeur de B est définie, 
selon ch, niveau de jeu choisi. 

Ligne 260 : si le dividende est plus petit que 
le diviseur (quotient entier — 0), on recom- 
mence le tirage au sort. 

Ligne 270 : détermine AF$, chaîne de carac- 
tères égale au nombre de chiffres du diviseur, 
pour réaliser l'affichage des nombres. 

Ligne 280 : détermine de la même façon une 
chaîne de caractères EF$, formée d'espaces, 
pour effacer des réponses fausses. 

Ligne 290 : calcule le quotient de la division 
et le nombre de chiffres de ce quotient (NCOQ). 


Affichage de l'opération. 

Ligne 360 : affiche le diviseur B. 

Ligne 370 : affiche le dividende À, en fonction 
du nombre de chiffres. 


Début de l'opération. 

Ligne 450 : entrée de la réponse. 

Ligne 460 : commentaire correspondant à 
une réponse plus petite que le diviseur. 

Ligne 470 : commentaire correspondant à 
une réponse trop grande (diviseur * 10). 

Ligne 480 : calcul de DV(1) qui représente les 
l chiffres de gauche du dividende (| = nombre 
de chiffres du diviseur). 

Lignes 490 à 500 : selon les valeurs respec- 
tives de DV(1) et de B (diviseur), commentaires 
correspondant à une réponse fausse. 

Ligne 510 : C1 = nombre de chiffres de la ré- 
ponse exacte (pour l'affichage). 


Divisions successives. 
Ligne 560 : question. 
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780 à 830 


870 à 950 


960 


970 


1010 à 1040 


Ligne 570 : réponse du joueur : seuls les 
chiffres (0 à 9) sont acceptés comme réponse. 

Ligne 590 : affichage du produit correspon- 
dant à la réponse. 

Lignes 600 à 640 : le joueur juge lui-même sa 
réponse (+ commentaires éventuels). 

Ligne 650 : LC détermine la position d'affi- 
chage du produit dans l'opération en haut de 
l'écran. 

Lignes 660 à 690 : affichage du quotient et de 
la soustraction. 

Lignes 700 à 750 : affichage du reste de la 
soustraction : le joueur doit confirmer sa ré- 
ponse, commentaires selon son choix (reste 
trop grand, ..). 


Suite des divisions successives. 

Ligne 780 : si J (nombre de divisions succes- 
sives) est égal à NCQ (nombre de chiffres du 
quotient), la division est terminée. 

Lignes 790 à 830 : modification des variables. 
D(J), nombre à diviser, est formé à partir de 
R(J—-1), reste de la division précédente, et 
Alch-—T), chiffre suivant du dividende. 


Fin du programme. 
Ligne 900 : affichage du nombre de réponses 
du joueur et du nombre minimum de réponses. 
Ligne 910 : propose une autre opération. 


Sous-programme de pause (pour lire un com- 
mentaire). 


Sous-programme de commentaire (début 
d'opération). 


Sous-programme d'effacement des nombres 
dans l'opération, en cas de réponse fausse ou 
de changement de réponse. 


Particularités techniques 


Pour former le dividende A et le diviseur B, on tire au sort 
autant de chiffres que le niveau choisi (ch). Le dividende est 
formé de la suite de ces chiffres (ligne 200), par exemple, les 
chiffres 2,6,8,3 donneront le nombre 2683. Ainsi, au niveau 4, 
ce sera un nombre de 4 chiffres. Pour le diviseur, seuls les 3 
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premiers chiffres tirés au sort seront utilisés, selon le niveau 
choisi (lignes 230 à 250). 


Les chaînes AF$ et EF$ seront utilisées pour une bonne pré- 
sentation de l'affichage des nombres à l'intérieur de l'opéra- 
tion : AFS servira de valeur de base pour une instruction PRINT 
USING (ligne 690), EF$, formé d'un certain nombre de cases 
«espace », sera utilisé pour effacer les nombres dans l'opéra- 
tion en cas d'erreur ou de nouveau choix du joueur. 


La ligne 290 calcule le nombre de chiffres du quotient qui est 
calculé dans !ä variable QUOTIENT. Une variable numérique 
étant précédée d’un espace vide (s'il s’agit d'un nombre positif), 
on transforme QUOTIENT en une chaîne de caractères STRS$ 
(QUOTIENT) dont on élimine le premier caractère dans l'ins- 
truction MID$. Le nombre de chiffres du quotient est alors égal 
au nombre de caractères (LEN) de la chaîne O$ ainsi formée. 


Chaque opération commence par la recherche du premier 
nombre à diviser, qui est formé des 2, 3, 4... chiffres de gauche 
du dividende, selon la valeur du diviseur. 


Le test de la réponse du joueur est effectué en fonction des 
valeurs respectives du diviseur et du nombre à diviser DV(1) : 
si le diviseur est, par exemple, 345 et le dividende 4578, DV(1) 
sera 457 car les 3 premiers chiffres du dividende forment un 
nombre supérieur au diviseur ; si, par contre, le dividende est 
27596, DV(1) sera alors 2759. Cette partie du programme est un 
peu longue, mais elle permet de travailler avec des nombres 
quelconques. 


Les divisions successives sont réalisées à l'intérieur d'un 
même programme. L'affichage des nombres dans l'opération 
est réalisé à partir de J (nombre d'opérations réalisées). Le pro- 
gramme vérifie lui-même si l'opération est terminée : ce nom- 
bre d'opérations (J) est alors égal au nombre de chiffres du 
quotient NCQ. NCQ représente aussi, évidemment, le nombre 
minimum de « coups » pour faire cette opération. 


Modifications 


Les valeurs des nombres, obtenues à partir du choix du ni- 
veau (voir Particularités techniques) peuvent être modifiées de 
manière très simple à partir des lignes 170 à 220. On pourrait, 
en particulier, tirer le diviseur et le dividende, dans leur entier : 
(INT(RND * 99) + 1 donnera, par exemple, un nombre entre 1 
et 99. Mais il faudra ensuite rechercher chacun des chiffres du 
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dividende, carils sont nécessaires pour la suite du programme : 
A MOD (10 |) donnera ces chiffres, dans une boucle où | repré- 
sente le nombre de chiffres de ce dividende. 


La structure du programme permet en effet de travailler avec 
des nombres quelconques. Seule, la place sur l'écran, pour af- 
ficher l'opération, limitera vos choix. 


Ce programme pourrait être transformé en un programme 
plus complet sur la technique de la division en ne fournissant 
pas les résultats des opérations intermédiaires (multiplication 
et soustraction). Mais il fauddrait alors que l'élève travaille avec 
un cahier sous la main, ou bien qu'un sous-programme de 
« calculette » soit ajouté dans le programme, car tout ne peut 
être effectué en calcul mental. 


On pourrait envisager une suite automatique des opérations 
en fonction du rapport score/nombre minimum d'opérations 


950 IF REP=NCQ+1 THEN N=N+1:IFN >5 THEN N=5 
952 IF REP>NCO +4 THEN N=N-1:IFN<1 THEN N=1 
954 GOTO 10 


Adaptations 


Le programme de divisions intermédiaires peut travailler avec 
n'importe quel nombre. On peut donc rechercher la division 
exacte, ou du moins avec deux ou trois chiffres après la virgule. 
Il suffit de déplacer l'affichage du dividende à l'extrême gauche 
de l'écran, pour laisser la place aux décimaux. 


En modifiant les valeurs des tirages au sort des chiffres du 
diviseur et du dividende, des divisions de nombres monbres 
décimaux peuvent aussi être effectuées à l'aide de ce program- 
me. 


Présentation 
Division 


Tirage au sort des éléments 
de l'opération et recherche de 
NCQ (nombre de chiffres au quotient) 


Affichage de la 
division 












Entrée du nombre à 
diviser pour commencer 


Affichage 
Test faux commentaires 
réponse selon le type 
d'erreurs 


exact 





Entrée d'un quotient 
(1 chiffre) 
Affichage du produit 
correspondant 


Confirmation réponse ? 







Le produit oui 
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grand 
? 
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commentaires 


non 
Calcul et affichage du reste 


Confirmation du reste 


Affichage 
faux commentaires 
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Affichage du 





nouveau nombre non 
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+ chiffre suivant du 
dividende) oui 


| 
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10 REM 

AU REM ESS DIVISION ------ 

20 REM --- D,Nielsen avr 85 —-—- 

40 REM ---— Augustin mar 86 --- 

DO REM eee ee 

60: REMCESS SSSR SSSR SRE ee mi de AR que ES ne 

7Q REM -5 Module presentation 

DU: REM EST SS STE SES RSR RSS SR S 

G9Q MODE 1:CLS:RANDOMIZE TIME/1@G00:FRINT "DIVIS 
ION" 

100 LOCATE 1,1G@:FRINT "Division de nombres par 
un diviseur'",'"de 1 a 3 chiffres" 

110 FRINT:FRINT "Quel niveau choisis-tu PM, 
...facile a $.,.difficile)" 

120 1#=INEEYS#:IF i#="" THEN 120 

150 CheVAL(OIH)IIF ch£1i OK ch?5 THEN 120 

L4Q REM sac one mm ae oem me 

150 KEM -5 Tirage au sort des nombres 

LOURREM SSSR SMS Semen meme 

170 repr0:a=0:b=0Q 

180 FOR ii TO ch 

190 a Ci) =INT C(RND#9)+1 

O0 IF 1x1 THEN ara(i) ELSE a=at+ta(i)*12"(i-1) 

210 b(i)=INT (RND#x9) +1 

220 NEXT i 

220 IF ch£3 THEN bb (1):divæli 

S4O IF che? THEN bæb (1) +b (2) #1Q:dive2 

290 IF cheS THEN b=b+b (35)#10@:divsz3z 

260 IF ab THEN 180 

270 aff="h'iFOR ii TO diviaf#=af#+"#!"iNEXT i 

280 ef+t=CHRE CID): FOR il TO divieffref#$+CHRé(S 
2)iNEXT i 

290 quotient=INT(a/b):q#=MIDE(STRE (quotient) ,2 
)incaq=LEN(q#) 

SO: REMRSSS Ses SSSR ee Sn SE Em ee 

210 REM -% Affichage de 1'operation 

MAQREM Re eee ne ee Re mn me ne 

ATQ CLS: ji 

340 FOR y=i TO 14:LOCATE 17,y:PFRINT CHR# (143): 

NEXT y 

350 FOR “=18 TO 26:LOCATE x, 4:FRINT CHR# (143): 

NEXT x 

360 LOCATE 21,2:FRINT MID#CSTRE# (D) ,2) 

270 1=17-(LEN(STR£(a))#2): LOCATE 1,2:FRINT a 

00 REIMS SES RSS SES ah pin sb A er 

590 REM -% Debut de la division 

400 REM ennte me same vocee come some vote mme oo set ot aetee eme mme ones me es ose some oueee cotue some cou menus oué eee move annee one ee 00e 

410 IF ch=i THEN d(j)#a: GOTO 550 

420 IF ch=Z AND a(i)tb THEN d(j)=a:GOTO SS@ 
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AO FOR k=20 TO 268:LOCATE 1,k:FRINT SFACE# (59) 
INEXT 

44Q LOCATE 1,2@0:FRINT "Quel nombre vas-tu divi 

ser par'sbs'"pour commencer "3; 

450 INFUT d(j)i:repsrep+i 

480 IF d(j)ib THEN FRINT "Non, ce nombre est t 

rop petit",'"pour etre divise par'":b:GOSUR 960: 
GOTO 450 

470 IF d(j):b#1Q THEN PRINT "Non, ton quotient 
sera superieur a 10":GOSUB 960:GO0OTO 40 

490 FOR iæi TO dividv(i)#a(ch+i-i)+dv Ci) #iQiNE 
XT ji 

490 IF dv(i)b AND d(j)izdvç(1l) THEN GOSUR 970: 


GOTO 470 

SOA LE dvCl)ib AND d6Oj)£scv CL) kIQ+a Cch-div) TH 
EN GOSUE 970: G0OT0 40 

FLO E LRENAERSNST RER OUR 
*3 ÈS mn ne a a ne ot me von 


Division gSuCcCe 





GiVeS 







de 550 ÉOR kefQ TO 264 LOCATE LL, ka PRINT SFACES C9) 
ëNEXT 

Mon LOCATE 1,20: FRINT "Combien de fois"sbi "peu 
Hetu enlever de"sd(Cj)g" 2" 

M7Q LE INEEYEÆs TE del THEN 70 

ep+lsq OC) VAL Ci) IF ASC Ci#):48 OR AS 
THEN S70 

babe QC T2 ae CT JD 

| "Ge chiffre te convient-ilt  CD/N)" 
2INÉEVES IF im TMEN 610 

UPPER Ci) TR Le UNUOTHEN FRINT "Alors 
immense e'":GOSUR 960: G0OT0 SS0 

GA LE is r"OQ" THEN 610 

é40 FCh)æd Ci) mg (ji) kr IE 1 Cj)EQ THEN FRINT MATE 
ention ce nombre est trop grands GOSUE 960: GOT 
Q 550 

SA IF qCixbel@" div AND jæel THEN lemlæ+jxs ELS 
E lorl-1+jxs 

66 LOCATE Les, j#4s FRINT Mets PRINT USING a+: 
5q(3j)%b 

870 LOCATÉ 19+j42, 61 PFARINT MID#CSTRE Ca Cj)) ,4) 
680 LOCATE lc-“1,4%j+2: PRINT USING af#sir (j) 

490 FOR k=20 TO SS:LOCATE 1,k2: PRINT SPACE (59) 
:NEXT EH 

700 LOCATE 1,2Q:FRINT dOj)g"-ts q 0j) xb; "etui Cj) 
710 FRINT 'kRegarde le reste" 

720 FRINT "Ton quotient est-il exact CQ/N) 7%" 
7350 1 F5UPPER# CINREV#) x IF ie"! THEN 750 

74Q IF itss:"0" AND i#2%"N" THEN 750 









Fi 
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7530 IF i$="0" AND rj)eb THEN FKINT "Tu te tro 
mpes, ce reste"," est plus grand que le divise 
Ur, "Il faut choisir un autre quotient": GOSUE 
960: GOSUR 101G:G0T0 550 
76Q IF i#$="N" AND rCj)ib THEN FKINT "Et pourta 
nt c'est le bon quotient !'sGOSUR 9460 
77Q IF i#="N" AND rCj)b THEN FRINT "Tu as rai 
son, alors on recommence": GOSUR 96@:GOSUR 1210 
:GOTQ SS0 
790 IF jencq THEN 870 
790 tacl+j-i 
SO jxj+1 
10 dj) Cj— 1) #10+a (ct) 
SQ LOCATE Le, jx4-2s FARINT USING at#3; dj) 
50 GOTO SS0Q 
GS KEM -% Fin de 
860 KREM pin pes 
970 CLS:EFEINT "Operation terminee" 
860 IF ch&l THEN 910 
690 IF ch&2 AND aC1)“b THEN 910 
900 IF repencq+ri THEN FRINT "Bravo, EU as ete 
Le plus rapide possible" ELSE FARINT "TU as don 
n@a!sr@eps "reponses": FAINT "C'etait faisable en" 
ane qtris "Coups" 
G1Q FARINTSFRINT "Une autre operation CO/N) %" 
Vu 1 HUF ECINÉEVÆ) TF1 HU THEN 920 
LEE "OU AND iÆE UN OTHEN 920 

IF OL ÆmUNUOTMHEN FRINT "AU revoir !"s: END 
JO UN 


CD AA SON es can nes gare To EAU LA u NES VTT 


PS TOITS fe et Se on Le 2 





















ONE UE COR DE OI 
MK M Me NE He SA LA D Gén DR LL PAIN 


97Q FRINT "Ta reponse ne correspond pas",'"au n 
ombre a diviser !":GOSUR 960:RETURN 

990 REM uno ones saute coous saut voué st60e ve sata nome ovv0e 20008 10m doute mate comme vanne s0b0n 06e 000e nan0 nee mnadé muet onvne 00006 vom 00006 comme cames 

990 KREM -* Effacement des nombres 

{ Q (Pa) (a) [* E M enves sov00 mous musee mous muse so00e ovmee mavee one some abus pete me 0060 ee m0 ee oo as a080e 00000 v0000 casa oovse one aout tue evene eee 

1010 LOCATE Ilc-2,jx4:FRINT ef#s" " 

1020 LOCATE lec-1,jx44Ss: PRINT eff 

1QOËQ LOCATE 19+3j%2,62FARINT "M" 

1040 KETURN 


RAVITAILLEMENT EN VOL 


Thème 


Découverte d'un nombre aléatoire compris entre 1 et 200 par 
encadrements successifs sous forme de jeu. 


Niveau 


À partir de 7 ans. 


Intérêt pédagogique 
Connaissances 


— exploration de la suite des nombres naturels de 1 à 200. 


Savoir-faire 


— déduction ; 

— mémoire ; 

— raisonnement : recherche d'une technique permettant de 
trouver la solution en utilisant le moins de réponses pos- 
sibles. 
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Déroulement 


« Ravitailler un avion en vol, c'est lui donner du carburant 
sans qu'il soit obligé d'atterrir. Pour cela, il faut que l'avion ra- 
vitailleur soit à la même altitude que l'avion de chasse. » 


Cette altitude est fixée par un nombre aléatoire compris entre 
1 et 200. 


Le joueur est le pilote de l'avion ravitailleur. Il doit indiquer à 
AMSTRAD CPC l'altitude qu'il a choisie. Si cette altitude est plus 
élevée que celle de l'avion de chasse, l'avion ravitailleur se des- 
sine sur l'écran au-dessus de l'avion de chasse. Si elle est trop 
basse, l'avion se dessine en dessous. Si l'altitude proposée est 
la bonne, une ligne relie les deux avions. 


La position de l'avion ravitailleur indique donc, pour chaque 
coup, si le nombre proposé est trop petit ou trop grand. 


A partir de la 10° altitude, un compteur indique le nombre de 
coups restant à jouer. 


Si la bonne altitude n'est pas trouvée en 15 réponses, le joueur 
a perdu. 


Commentaires 


100 à 170 Définition du dessin de l'avion. 

180 à 360 Présentation du jeu sur l'écran, avec une ani- 
mation. 

400 Choix de la bonne altitude par l'AMSTRAD CPC. 

410 à 430 Affichage de l'avion de chasse (en jaune). 

440 à 500 Test de l'altitude proposée par le joueur et affi- 
chage de l'avion ravitailleur. 

510 à 580 Message d'erreur. Compteur de coups restant 
à jouer (si plus de 10 réponses). 

620 à 710 Affichage réponse exacte. 

750 à 830 Affichage « perdu ». 


860 à 890 Proposent de rejouer ou d'arrêter. 
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Particularités techniques 


Les deux avions sont dessinés à partir de caractères person- 
nalisés (lignes 110 à 170). 


La ligne 690 : il faut bien lire un caractère ”_"” (souligné : SHIFT 
+ 0"): 


Modifications 


L'avion de chasse peut être placé à n'importe quelle altitude 
entre 1 et 200, mais la séquence de nombres aléatoires ne sera 
jamais la même, elle n'est pas initialisée lors d'une instruction 
RANDOMIZE TIME/1000. 


Lignes 540 à 560 : le nombre de réponses maximal peut être 
ajusté à l’âge du joueur. 


Adaptations 


On peut adapter ce programme pour des enfants de 5 à 6 ans 
en limitant le choix de l'altitude à un nombre situé entre 1 et 9. 


La réponse peut alors être saisie directement par une instruc- 
tion A$=INKEYS à la ligne 440. 


Il faut alors limiter le nombre de réponses possibles à 5 ou 6. 
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Programme 


Ravitaillement en vol Définition des dessins 


Présentation 
du jeu 


Entrée 1° réponse 


Tirage au sort de 
la réponse exacte 


Dessin de l'avion 
de chasse 





Test réponse 


Réponse fausse 


Dessin de l'avion 
ravitailleur 


Nouvelle réponse 












our 





(nombre de réponses) 


non 


À Affichage compteur 


de réponse 


_ D 

















non 


Organigramme 
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1 Q REM De ru nemue canne Lonie ae LE ve ASE Eu (MINS a En tac Re dames ob nat 12000 ae RS asus Los ont dm 

2Q REM -—- RAVITAILLEMENT EN VOL -- 

20 REM ---- D,Nielsen nov 83 -—--- 

4Q REM --- Augustin jan 86 

5 Q FX E M aus 0006 20u08 Feeue à Fam éttoe vos 06e 100) ete dos nées oénee vétan 0068 te gs anse 08008 vaut 66 panne és 6600 és 26652 

60 RANDOMIZE TIME/1000 

70 RKEM Dunes nue Pmnd asia 60 God cine mines sons cou Soées. MéGe oies oimus Es fonts loin sd soi cas eee rates pates tm nés Lib mit qaute mes Sida ons 
80 REM -% Module initialisation 

Le] Q R E M den als éotr Loti SR Gi: Ces. tte opus ensuite épi. 695 nés tai SES SE dance: tot 66 dt See cit an us end dt ess CH 


100 MODE 1:CLS:FAFER Q:FEN 1 

119 SYMBOL AFTER 279 

120 SYMBOL 240,0,0,0,1,3,63,85,255 

1710 SYMEROL 241,0,96,192,193,195,2955,299,248 
140 SYMEOL 24%,65,5,1,0,0,0,0,0 

150 SYMBOL 245,192,192,192,192,96,0,0,0 

160 aviont(1)=CHR# (240) +CHRE# (241) 

170 aviont (2) =CHRE (242) +CHRE (247) 

180 SOUND 1,0,2:00,15,,,31 

190 TAG 

200 FOR i=3900 TO 5Q STEF -2 

210 MOVE 2%1i,390:FRINT aviont(1):" RAVITAILLEM 

ENT EN VOL "3; 

220 MOVE 2*1i,2%7S: PRINT aviont(2)s" ts 

20 NEXT ji 

240 TAGOFF 

290 LOCATE 1,1Q0:FRINT " KRavitailler un avion e 
nm vol,!"," c'est lui donner du carburant," san 

s qu'il soit oblige d'atterrir'" 

260 FRINT:PRINT " Four cela, il faut que 1'’avi 

on",'" ravitailleur soit a la meme," altitude 
que l'avion de chasse" 

270 LOCATE 3,2S:FRINT "AFFUIE SUR UNE TOUCHE P 
OUR CONTINUER" 

200 1F=INFEV#:IF i#="" THEN 280 

290 CLS:LOCATE 1,5 

200 FKRINT " L'altitude est comprise entre'"," 0Q 
et “00 metres" 

210 FRINT:IPRINT " Tu pilotes l'avion ravitaill 
eur", æet Eu dois donner ton altitude" 

220 PRINTIPRINT " Si ton altitude est trop ele 
ve," ton avion monte au dessus de"," l'avion 

de chasse 

210 FRINT:PRINT " Si ton altitude est trop bas 
se," ton avion descend au dessous de "," l'av 
ion de chasse" 

F40 FRINT:FRINT "Tu dois trouver l'altitude e 
“acte 

350 LOCATE 3,2S:FPRINT "AFFUITE SUR UNE TOUCHE F 
OUR CONTINUER" 
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T6Q 1F=INÉEVEÆSIF 14" THEN 560 

570 REM sue ce mmau 1008 nue mme ours v0v0 vo08 mnt e000 0000 even urnes 2020 0006 ions 1300 0608 onuns 10000 0008 mue 0000 008 oem 0e 00e sous oran 

190 REM -* Module jeu 

90 RENM unes coume conne comes evene unes cuete oem one emtne emeet one votes vote 000 vue comme conne 00v0e 00090 09e 0unge 00200 00009 00006 onane 0006 00008 00e nee oo 

40Q crO:bE=INT (RND#x200) +1 

410 CLS 

42Q LOCATE 12,8:FRINT avion#(1) 

ATQ LOCATE 12,9:PRINT aviont(2) 

440 LOCATE 2,20:INFUT "Quelle altitude propose 
SEUL ‘Lia 

450 IF ai OK a:200 THEN 410 

460 cec+i 

47Q IF b£a THEN x=5 ELSE #16 

A0 IF arb THEN 626 

490 FEN ZiLOCATE 20,x:FRINT avion (1) 

JOQ LOCATE 20 ,x+1s PRINT aviomé$(Z)sFEN 1 

LOCATE 1,2% 

FRINT " Ce n'est pas La bonne altitude! 
SOUND 1,200,20,15 

LÉO Gr1Q AND cé14 THEN FRINT " Depeches to 
1, tu n'as plus que"s1ÿ-c," altitudes a propos 





JuJQ IF cxl4 THEN FRINT " C'est ta derniere cha 


OO IF cr à THEN 750 

7/0 FOR il TO SSOG:NEXT i 
3890 eOTO 410 

QG EM + Module gagne 

10 KEM - ci em ue mn te 

&6EQ FOX ix20 TO 24 

ED LOCATE Lis FARINT SPACE CE9) 

640 NEXT i 

650 LOCATE 1,20:FRINT " Bravo, c'est la bonne 
altitude"," Tu peut ravitailler 1'avion' 

660 FRINTIFRINT "TU as gagne en'"1cs "reponses" 
670 FEN 2Z:LOCATE 20,8:FARINT aviom#(1) 

680 LOCATE 2O,9:FPRINT aviont(2):FEN 1 

690 FOR i=14 TQ 19:LOCATE 1,82 PRINT M" CMENEXT i 
700 FOR ix1i TO 7OOG:NEXT ji 

710 GOTO 870 

7 20 F E M ete ages sn sac sste von mms sème me m6 0606 00000 00008 cents monts mms mans 0000 oév6e 0000 00008 uvsee anus aneee avan aûôes dunes 00004 opeue oëtee 00600 

750 REM -> Module Seti e 

7 4 Q F E M me tte m000 ete ans 6006 me moi se mme 0000 6060 onune 45230 ave anus 40000 0000 ooene mnute 0006 anse tours 000 00006 mène m0 
75Q CLS:IPRINT " Trop tard," L'avion n'a plus 
de carburant" 

760 FOR i=i TO Z2O0G:NEXT i 

77Q FOR i=i TO 50 

780 SOUND 1,i,1,15 
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790 NEXT ji 

800 SOUND 1,0,:00,15,1,,16 

810 FOR izi TO 10 

820 FAFER @:CLS:PAFER 10:CLS 

870 NEXT ji 

950 REM -% Module fin de partie 

63 és (r, F$ FE M eme s000 some 00000 10008 00008 00000 vo00e name mme eumue even tee 06006 00e 00008 over novue annee oume mnbte 00e 00m eve de on0ee out 00e oo00e pente opens 
97Q MODE 1: FAFER QFEN Li CLS: PRINT " Une autre 
partie € © / nm )" 

GSO iFeINÉEYVES IF i#e"" THEN 6680 

890 IF UPPER Ci#)="0" THEN 400 ELSE END 


LE TRAIN CAPRICIEUX 


Thème 


Jeu de questions à réponses multiples sous forme animée. Il 
s'agit d'accrocher à une locomotive, contenant un élément- 
question, le wagon contenant le bon élément-réponse, parmi 
cinq wagons dessinés sur l'écran (les wagons sont ici repré- 
sentés par des fenêtres). 


Niveau 


En fonction des questions utilisées dans ces exercices. 


Le système de réponse n'utilisant que les deux touches “1” 
et “0” pour déplacer la locomotive, ce jeu est accessible dès 
4 ans. 


Intérêt pédagogique 
Connaissances 


— selon les questions-réponses, les thèmes liés qui sont in- 
troduits au début du programme, il peut s'agir de révision, 
de contrôle, ou d’acquisitions nouvelles en tout domaine 
(français, maths, éveil). 
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Savoir-faire 


rapidité ; 

attention ; 

esprit de décision ; 
globalisation d'une réponse. 


Déroulement 


L'enseignant (ou le parent) entre d’abord pour le premier jeu 
le texte qu'il veut voir s'inscrire dans la locomotive puis cinq 
réponses possibles, dont une seule est exacte (AMSTRAD CPC 
vous précise quelle réponse doit être exacte). On entre ensuite 
les données du 2°, du 3°, puis du 4° jeu. 


C'est alors au tour des enfants de venir. Après une explication 
succincte du jeu, l'écran se vide. 


Une locomotive se dessine à gauche avec, à l'intérieur, l'élé- 
ment-question n° 1, puis à droite cinq wagons de couleurs dif- 
férentes avec les cinq éléments-réponses. 


Les wagons avancent lentement vers la locomotive. L'enfant, 
en utilisant les touches “0" et “1”, doit faire monter ou des- 
cendre la locomotive pour accrocher le bon wagon. Mais la lo- 
comotive est capricieuse, elle change parfois de voie toute seule, 
il faut être attentif jusqu'au bout et la remettre à sa bonne place ! 


Lorsque les wagons arrivent au niveau de la locomotive, 
AMSTRAD CPC affiche « EXACT » ou donne la bonne réponse 
selon le wagon qui a été accroché. 


Le programme recommence ensuite au dessin de la loco- 
motive avec le 2° jeu... etc., jusqu’au 4°. 


Commentaires 


100 à 220 Initialisation des fenêtres et présentation du 
programme. 

260 à 560 Entrée des données. 

570 à 660 Présentation du programme pour l'enfant. 

700 à 890 Jeu : pour chacun des quatre jeux, on attribue 


aux variables v$ (question), r$(i) (réponses) et 
br (numéro de la bonne réponse), la valeur qui 


900 
940 


950 à 1040 


1050 
1060 à 1100 


1110 à 1190 


1230 à 1270 
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correspond au jeu, puis le jeu est réalisé dans 
un sous-programme (GOSUB 940). 

Fin de programme. 


Initialisation des positions relatives des wa- 
gons et locomotive. 


Création des fenêtres et affichage des mots dans 
celles-ci. 


t=0 correspond à l'initialisation de la minuterie. 


Lecture d'un déplacement, et chargement des 
paramètres des fenêtres. 


Tirage aléatoire d'un déplacement de la loco- 
motive. 


Regarde si un wagon est accroché, et si c'est le 
cas analyse la réponse. 


Modifications 


Une temporisation du déplacement des wagons (ligne 1060) 


peut être ajouté 


e afin qu'ils avancent moins vite (variable t). 


Voici, à titre d'exemple, quelques exercices qui peuvent être 


étudiés dans ce 


e Français 


Conjugaison 


— Loco :unp 
— Wagons:c 


Orthographe 


programme : 


ronom (je, tu, il, etc.). 
inq conjugaisons dont une seule convient. 


— Loco : « la ». 


— Wagons : 
« chattes ». 


e Maths 


«chat», «chatte», «chaton», «chats », 


Calcul mental 


— Loco : 6 X 


5: 


— Wagons : 32 - 30 - 28 - 35 - 40. 
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Evaluation 


— Loco : 120 x 36. 

— Wagons : 4212 - 4320 - 5415 - 4328 - 425. 
(l'enfant ne peut effectuer cette opération mentalement, 
mais doit deviner que la réponse se termine par 0, c'est un 
travail de raisonnement très utile). 


e Eveil 


Histoire 


— Loco : Louis xiv. 
— Wagon : 12° S, 15° S, 17° S, 19° S, 20° S, (Quand a-t-il 
vécu ?). 


Géographie 


— Loco : Seine. 
— Wagon : Marne, Saône, Somme, Dordogne, Cher (un seul 
est un affluent de la Seine). 


Vous pouvez inventer vous-même de très nombreux autres 
sujets. Mais il faut respecter un impératif : le texte dans la lo- 
comotive et dans les wagons ne doit pas dépasser huit cases, 
sinon le train aura une allure de mille-pattes ! Pour des ques- 
tions et des réponses plus longues, il est préférable d'utiliser le 
programme « Soutien ». 


Enfin, pour de très jeunes enfants, on pourrait, en adaptant le 
programme, remplacer le texte par une couleur : l'enfant de- 
vrait alors accrocher le wagon de la même couleur que la loco- 
motive. 


Programme 


Train capricieux 
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Entrée des 4 questions 
et de leurs réponses 
par l'adulte 


Présentation 
du jeu 


Dessin de la loco 








et de son texte 


Affichage des 5 wagons 





et de leur réponse 


Les wagons avancent 
vers la loco. 










Test 
place des wagons et de 
la loco 















Pas de 
wagon accroché 
à la loco. 















Entrée d'un 
ordre de 
déplacement 
par le joueur 














Pas de 
déplacement 
de la loco. 


Déplacement 
automatique 





Nouvelle affichage 
de la loco. 









Organigramme 









wagon est 
accroché à la loco. 





Ce n'est pas le 
bon wagon 
Affichage de la 
bonne réponse 










C'est le 
bon wagon 
Exact 





Fin de la 1°, 2° 
ou 3° question 


Fin de la 4° 
question 
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{ Q REM eme one mans soute eve ounee ee omnte oo co0ee save 00e sante 00000 mmmne 06066 mme 0000 omvue de nonne once aouns memes 
20 REM + TRAIN CAPRICIEUX - 
20 REM --- D,Nielsen nov GT 
40 REM --- Augustin fev 86 --- 
5 Q F E M ste moe sv00 mt so sstm so se one oo eme 1000 1000 same oottt anvne ana onone monte ont aboe vonne oevce avoue 
6@ ON BREAK GOSUR 900 
7 (ra) F EE M me same 0000 tt s200 0600 mme 0000 mens 0000 vos nm20e 0006 00 none 20000 0008 sur 1100 0000 nets mme0e 0000 ana 0000 00606 unes one 0006 voums ma tee 
80 REM + Module RÉ SARAnESTEeR 
Le Q Fè E M wven mer eme sé0e v00e sève a000 oo s006 0006 es me 0006 0008 00000 ouoas 00208 00008 MR NE pue ana noene 008 odèee one ue moe ouv00 00e ataue sure 
100 MODE 1:FAFER 13:FEN QuCLS 
119 RANDOMIZE TIME/1000@ 
120 FOR ii TO 5 
120 j=INT (RNDKT) +2 
140 WINDOW#Hi,29,38,27"8%i,29-Sxi cs PAFER#I, jure CL 
oo . 
190 NEXT ji 
162 WINDOW#H6,7,9,12,14: PAPER , 2 FEN#G , 3 CLS#6 
170 FOR ii TO S:LOCATE#I,2,2: FRINT#i, "CAFRICI 
EUX":NEXT à 
190 LOCATEH#G,2, 23 FARINTHE, "TRAIN" 
190 FOR ii TO 300 STEF 10 
200 SOUND 1,i,10,15 
210 NEXT i 
220 FOR ii TO SQ0Q :NEXT ài 


240 KREM + Module lecture des Ms 
pr 5 (Pa) F EF M onves née 00008 anne sta ssèun dues asbedastes Dan 0000 OUI 000 RSS a020) onete 00008 0u00e 01008 9008 00000 nes 06000 62008 10008 00005 





260 MODE Z:CLS 

27Q LOCATE Z,2sFRINT LE TRAIN CAPRICIEUX" 

280 LOCATE 2,5:FRINT "Vous allez d'abord entre 
r les questions et les reponses" ," qui vont 5e 
mvir au jeu" 

290 LOCATE 10,8:FAINT "ler jeu: FRINT 

200 INPUT M'Que voulez-vous ecrire dans la loco 
motive "ja 

31Q INFUT "'ilere reponse (fausse) "ab#(1) 

220 INFUT "eme reponse (exacte) "sb (2) 

240 INPUT "eme reponse (fausse) "ib#(i) 

240 INPUT "4eme reponse (fausse) "sb#(4) 

290 INFUT "Seme reponse (fausse) "ib#(5) 

260 CLS: LOCATE 10,8: FAINT "eme jeu": FRINT 

27Q INFUT Que voulez-vous ecrire dans La loco 
motive "ic 

26Q INFUT "'lere reponse (fausse) !"sdÆ(1) 

290 INFUT "£eme reponse (fausse) "sd (2) 


400 INFUT "Teme reponse (fausse) !ad#C) 
41Q INFUT "4eme reponse (fausse) "sd (4) 
420 INFUT "Seme reponse (exacte) "s;d#(5) 


430 CLS: LOCATE 10,S8:FRINT "eme jeu'":FRINT 
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440 INPUT Que voulez-vous ecrire dans la loco 
motive "se 

450 INFUT "'iere reponse (exacte) "yf#Æ (1) 

460 INPUT "eme reponse (fausse) !"sf#(2) 

47Q INFUT "eme reponse (fausse) "yf#(Ci) 

4890 INFUT "4eme reponse (fausse) "s;f#(4) 

490 INPUT "'Seme reponse (fausse) "if (5) 

500 CLS: LOCATE 10,6: FKINT "eme jeu": FARINT 

9210 INPUT M'Que voulez-vous ecrire dans la loco 
motive "sg# 

220 INPUT 'lere reponse (fausse) "Minh (1) 

JeQ INFUT "eme reponse (fausse) "sh (2) 

940 INFUT "eme reponse (fausse) "yh# (CT) 

JoQ INFUT ‘4eme reponse (exacte) ";h£(4) 

260 INPUT 'Seme reponse (fausse) "yh#(5) 

970 MODE 1:CLS 

380 LOCATE 2,4: PRINT "TRAIN" 

290 LOCATE 2,6:FRINT "TU vas voir apparaitre", 
"une locomotive a gauche de l'ecran" 

60 PRINT " et a droite 5 wagons" 

610 FRINT:PRINT !" Les wagons vont avancer", ,'" v 
ers la locomotive" 

620 FRINT:PRINT "Tu dois faire monter où desc 
endre"," la locomotive pour accrocher"," le wa 
gon qui contient la bonne reponse" 

620 PKRINT:FRINT " Tape 1 pour monter"," ou 2 p 
our descendre" 

840 FARINT:FRINT !" Attention, la locomotive cha 
nge "," parfois de voie toute seule" 

650 LOCATE 2,24: PRINT "AFFUIE SUR UNE TOUCHE F 
QUR CONTINUER" 


GO iFRINEEYEÆS IF i#m "THEN 660 ELSE CLS 
6 7 Q FR E M aie ation oitet man onees 28e Coœ 0nù oi: tie mui GS déton sine nee 6e den. 2666 vide chu orme AND Es UNE ul nat 6 on enr ee Ge 
680 KEM - + Module jeu 


O0 RÉ Ne une Does 
700 vteatsbreT 
710 FOR i=1 TO S 
730 NEXT ji 

740 GOSUR 940 
760 v£ectibres 
760 FOR i=1 TO 5 
770 t#(i)=d#(i) 
780 NEXT i 

790 GOSUB 940 
800 vtretshbral 
810 FOR i=i TO 5 
B2Q tÆ(i)=f#(i) 
930 NEXT i 

840 GOSUR 940 
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850 vt=g#:br=4 

8640 FOR i=i TO 5 

970 t#Ci)rh#(i) 

880 NEXT ji 

890 GOSUB 940 

90Q MODE 1:CLS:PRINT "Au revoir !!': END 

910 REM 000 une 1000 come ons me oo00e ven 0008 au 2700 006 nues sta 0060 ss mue m0 eee un sd 0000 mans 0020 0000 06e mu 0000 eee onu mass 

920 REM -+ Module affichage 

970 REM om nn mc vos an ame so some 0008 om 20006 nee venue ste 0006 ben one moe one mom s00 06 ame om 0008 pee oui 0006 0008 oem matt 

940 d1l=Q:d=0Q 

95Q CLS 

960 FOR i=i TO 5 

97Q j=INT(RND#xI) +2 

980 WINDOW#i,25-d,268-d,27-59%i,29-8%xi: FAFER#i, 3 
s:CLOSHIi: PEN, j+i 

99Q NEXT ji 

1000 WINDOW#6,5,9,12+d1,14+d1:FAFER#6, 2: FEN#6G, 
3: CLSH6 

1010 LOCATEH6,2,2: FRINT#6, VE 

1920 FOR i=i TO 5 

1050 LOCATE#HIi,2,2:PRINT#i,C# (Ci) 

104Q NEXT ji 

1050 t=0 

1060 iFrINÉEVEHS IF 1#= 0" THEN tet+ils IF t:500 TH 
EN 1120 ELSE 1060 

107Q IF i$<s"1" AND i#:"Q" THEN SOUND 1,400,2 
G,15:GO0OT0 1060 

1090 IF ifw"i" THEN dledl-5 ELSE dlædl+5 

1090 IF dl“-10 THEN dl=-10 


4H rArA LE ed 1 "sd A TIIETRhI dt 1 7» 
LA KIKJ LE] VU 4 SL PUELIN OO QE 


1110 tr0 
LISO IF dis THEN 1250 
LASQ dec 
1140 SOUND 1,100,10,1$ 
1150 IF INTCRNDK10)#S THEN dlædl+S$ 
1160 IF INT CKNDX10):4 THEN dlædls 
LA7O IF dli-10 THEN dl-10 
11980 IF dl+1Q THEN dlx10 
1190 GOTO 950 
1210 KEM + Module wagon ac 
HO FOR il TO ZOPOUINEXT i 
1240 CLS: LOCATE &,10 
280 IF dle15-Sxbr THEN FHRINT "C'est exact "ME 
LE FRINT "Faux, c'etait 1 "Mit (br) 
1260 LOCATE 2,24:FRINT "AFPFUIE UNE TOUCHE FOUR 
CONTINUER" 
1270 ji FeINÉEVEÆS IF if THEN 1270 ELSE RETURN 





VILLES DE FRANCE 


Thème 


interrogation sur treize villes de France indiquées sur une carte 
de France par des points clignotants. 


Niveau 


A partir de 8 ans (Cours élémentaire 2° année). 


Intérêt pédagogique 
Connaissances 
— contrôle des acquis en géographie ; 


— place d'une ville sur la carte ; 
— notion d'échelle. 


Savoir-faire 


— utilisation d'une carte ; 
— recherche sur des documents ; 
— comparaison d'une liste à une situation. 
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Déroulement 


Ce programme a été réalisé sur une idée de Jacques Boisgon- 
tier (dans 30 programmes pour ORIC 1) adaptée et développée 
sur AMSTRAD CPC. 


Après entrée du prénom du joueur, une carte de France se 
dessine sur l'écran. Dans cette carte, un carré représentant une 
ville clignote pendant quelques secondes avant de s'afficher 
complètement. 


La liste des treize villes du jeu s'inscrit en haut de l'écran et le 
joueur doit taper le nom de la ville visualisée à l'écran. 


En cas de mauvaise réponse, le nom exact est donné. Ainsi 
de suite pour neuf autres interrogations. 


A la fin du jeu, AMSTRAD CPC donne au joueur son score. 


Lorsque le programme est utilisé pour la première fois par 
des enfants, il est intéressant de leur donner en plus, une carte 
de France (carte routière, par exemple). Le jeu servira alors de 
support à un travail de recherche sur document et le score final 
n'aura plus d'importance. 


Commentaires 


60 à 80 Initialisation et présentation. 

120 à 350 Coordonnées des différents points de la carte 
de France, et dessin de la carte de France. 

390 à 580 Lecture des villes en DATA et affichage de la 
liste des villes. 

620 à 630 Initialisation de RND (nombre aléatoire). 

640 à 700 Choix aléatoire d'une ville et clignotement du 
carré sur la carte de France. 

710 Affichage de la question. 

720 à 730 Test de la réponse. 

740 à 790 On efface le carré de la carte. 


800 Fin de jeu. Affichage du score. 
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Particularités techniques 


La carte de France est dessinée à partir de segments de droites. 
Les coordonnées (mode graphique) des points sont lues en 
DATA {ligne 160), ces derniers étant marqués sur l'écran (ligne 
170) puis reliés entre eux en ordre successif par un segment de 
droite jusqu'au retour au point de départ. 


Les villes sont localisées par un point sur la carte. Mais un 
point seul étant trop difficile à lire en haute résolution, il a fallu 
dessiner un carré autour de ce point et le faire clignoter pour 
que l'enfant le voit (lignes 660 à 700). 


Les coordonnées des villes et leur nom sont lus (lignes 400 à 
450) par une boucle WHILE/WEND ce qui permet d'en modifier 
le nombre sans changer le programme. 


Modifications 


Il est possible de donner au joueur une ou plusieurs chances 
supplémentaires permettant plusieurs réponses, en ajoutant : 


ligne 631 : REP = 0 
ligne 711 : REP = REP +1 
ligne 741 : IF REP > 3 THEN 640 


On peut aussi changer, augmenter, diminuer le nombre de 
villes en DATA afin de diversifier l'interrogation (voir adapta- 
tions). 


Les villes sont tirées au sort (ligne 630) par un nombre aléa- 
toire. Il est donc possible que la même ville soit choisie plu- 
sieurs fois. Si vous préférez avoir des villes toujours différentes, 
quelques lignes supplémentaires permettent de comparer le 
nombre tiré au sort à ses précédents (voir programme 
« Construction de phrases »). 


Adaptations 


Vous pouvez ajouter d'autres villes au programme, vous pou- 
vez aussi interroger vos enfants et vos amis sur les fleuves, ou 
les montagnes, ou les ports, etc. 
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AMSTRAD CPC permet, en effet, d'obtenir d'autres dessins 
sur l'écran très facilement. Voici deux exemples : 


— Vous décalquez sur un transparent la carte de France du 
programme. 


e Vous y placez d'autres villes qui seront matérialisées par 
un point. 
e Vous y dessinez les fleuves ou les montagnes qui seront 


matérialisés par des segments de droites à la suite les 
uns des autres. 


Ensuite, à vous de programmer |! 


Programme 


Villes de France 


Organigramme 
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Entrée du prénom 
du joueur 


Dessin de la carte 
de France 


Lecture des coordonnées 
et des noms de villes 
en DATA 


Tirage au sort 
d'une ville 















Affichage “étoile” 
(place de la ville sur la 
carte) 


Affichage de la liste 
des villes 
et question 





Réponse 





Exact 
BR - BR +1 
(bonnes réponses) 








Affichage de la 
bonne réponse 





(nombre de questions) 


Fin de jeu 
score 
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FR E M enves ce son ones 00000 c2000 0000 omuee otéee 00008 mas 00600 anus 00006 vanne 40008 manu 00008 20008 06000 020 ou06e snans an0ee 

REM ee VILLES DE FRANCE -—- 

REM +-- D,Nielsen oct BI + 

REM ee Augustin jan 86 

REM one 06e m0 100 nm See cute av mms en 0000 sus un ets em dues 00606 mue sms ot 0306 ue ets sue 

MODE 1:INH QLi:INH 1,24 

LOCATE 10,1G@:FKRINT "GEQGRAFHIE" 

LOCATE 2,16: INPUT MQuel est ton prenom 





nomÉzUPRIEFSÆ (nom£Æ) 

K [Es M jose es Los im te ic ne Le ME 86e DNA DR eu NS ions TT es DS Hd tu ses oi ae TU 
REM -5 Module Carte de France 
F [EN M PRE RE ER CR RE CR EE ER 7 
EL 
RESTORE : cr0 
PLOT 706,3:70@ 

WHIILE ci:408 

READ x ,y 

DRAUR x ,vy,1 

CC + 1 

WEND 

DATA nr. 70,24,-168,-78 
DATA @,- Me as 20,0,6 
DATA 6, a, “ : 10,0 

DATA _8, _14, ë -22,0,-8 
DATA 121 -8 10, 2 ,0,-12 
DATA +27, B, “Es mu 10,14,10 
DATA -20,4,-14,-4,-10,-14 
DATA “a = 14, “bd dr 84,16 
DATA -40,8, 12,52,4,30 


DATA -6, 18, 18,14 sir 

DAT 10, 10, 18, 8,-14,0 

DATA @, 16,3 8,4, 14: “à 

DATA 16, -12,12,-2,20 

DATA 16, e, de —b,19,—6 

DATA 12,0,4,8,4, (E) 

DATA 14,8 16 14,6 

F E M pri oc plere as do eg a AR pe 6e ass SR attentes 0080 andée 000 sans és 3aboe 008 case 60e Suns ads agvee dû 
REM ++ Module Villes de France 

F* E M anise ‘aies onde :slnes Haoe lon inédit abus doi st GS ae ue 10006 00008 tee ctnme .au00 oo abbé 06008 cuves muse doom 0900 0608 note 0008 
DIM VE CD x AD (Te ES 1 


WHILE c“#14 
Rae M VA VE(C) 
X (Casey (CC) y 
LOCATE L'CIPRINT v#(c) 
cc +1 
WEND 


DATA 306,:02,FARIS 
DATA 716,348 ,LILLE 


are) 
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480 DATA 544,%14,REIMS 

499 DATA 272,224,LE HAVKRE 

500 DATA 226,228, CHEREOURG 

510 DATA 172,302,RREST 

520 DATA 216,286 ,RENNES 

20 DATA 216,264,NANTES 

340 DATA 260,254 ,POITIERS 

330 DATA 244,206, BORDEAUX 

68 DATA T66,214,LYON 

570 DATA 364,180,AVIGNON 

300 DATA 2:860,166,MARSETLLE 

5 ec (ra) K FE: M na 600 c080 0606 eu6e 0000 ee sue 4660 00400 ours onu tee eve 90608 ein tunes m6006 6006 0000 00e 2300 oo 08 ee 00 006 2008 in 00808 me 
QD MEM + Module de jeu 

6 1 (Pa) F4 FE M ovtee outes mosm epnte où ons ot00e annee 0000 00000 00e an 

ED RANDOMIZE TIME/1000: tr@:br#0 
630 INK 1,245 Ve INT (RND#13) +1 

640 FOR i=2Q TO 22:LOCATE 2,1:PRINT SFACE#(:9) 
INEXT à 

6SQ IF t=1Q THEN 800 

660 FOR ji TO 1@1 

67Q FOR i=-1 TO ji 

690 FLOT x (vVI+i,y(v)-1i, (j MOD 2) 

690 FLOT x(vi+i,y(v)i+i, (j MOD ? 

7@Q NEXT i, 

710 LOCATE 2,20:INPFUT "Quelle est cette ville 
Msrepé:rep#eUPFERE (rep#) 

7RQ trt+l 

730 IF rep#iiv#(v) THEN FRINT " Non, "inomkÆ:s" 
, c'etait "Miv#(V) ELSE br&br+il:FRINT " C'est e 
“act !Minomé 

740 FOR im-1 TO 1 

750 FLOT x (vi+i,y(v)-i,0 

768 FLOT H(vI+i,y(v)+i,0 

77Q NEXT ji 

760 FOR il TO ZISOG:NEXT :i 

790 GOTO 4:70 

800 FRINT:PRINT " Score de "snom#s" s"isbrs"/ 1 
Q nu 








CONSTRUCTION 
DE PHRASES 


Thème 
Exercice de construction de phrases à partir d'éléments pré- 


sentés dans le désordre. 


Niveau 


A partir de 8 ans (Cours élémentaire 2° année). 


Intérêt pédagogique 
Connaissances 


— grammaire ; 

— éléments d'une phrase (groupe sujet, verbe, groupe 
complément) ; 

— éléments du groupe nominal : déterminant, nom, expan- 
sions : adjectifs, complément de nom. 


Savoir-faire 


— synthèse d'une phrase ; 
— copie d'un texte (orthographe). 
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Déroulement 


Après la présentation du jeu, les éléments d'une phrase ap- 
paraissent dans le désordre. Le joueur doit taper la phrase sur 
le clavier en remettant les éléments dans le bon ordre et sans 
faire de fautes de copie. 


Si la réponse est bonne, on passe à une autre phrase. 


Sinon, le joueur est invité à recommencer deux autres fois. 
En cas d'erreur à la troisième réponse, la bonne phrase est af- 
fichée. 


Le jeu comporte quatre phrases différentes. 


Commentaires 


90 à 160 Initialisation et présentation du jeu. 

170 Effacement de la mémoire des phrases précé- 
dentes. 

180 à 230 Lecture de la phrase et décomposition en élé- 
ments. 

270 à 300 Initialisation du jeu. 

340 à 400 Tirage au sort d'un élément : le numéro d'un 


élément est tiré au sort (ligne 360). Il est com- 
paré aux numéros déjà sortis (lignes 380 à 400). 
S'il n'a pas déjà été utilisé, il est validé, sinon, 
on recommence le tirage au sort. 


410 à 450 Affichage de chaque élément en une des trois 
couleurs définies (rouge, bleu clair, bleu ma- 
rine). 


Cet affichage se fait sur une ligne et à une place 
aléatoire déterminée par X (ligne 410). 


490 à 500 Entrée de la réponse. 

510 Test réponse. 

520 à 550 Réponse fausse « Recommence ». 

560 à 590 Affichage de la bonne phrase (trois réponses 
erronées). 

600 Affichage réponse exacte. 

610 à 620 Test nombre de jeux. 


Fin de jeu. 
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1000 à 1030 Entrée des quatre phrases en DATA. 


Particularités techniques 


La phrase est décomposée en éléments (quel que soit leur 
nombre) dans les lignes 200 à 230. AMSTRAD CPC considère 
alors chaque espace entre deux éléments comme séparateur, 
ce qui oblige impérativement à terminer chaque phrase en DATA 
par un espace, faute de quoi le dernier élément serait oublié. 
Bien sûr, on élimine cet espace pour la comparaison avec la 
réponse donnée (ligne 220). 


L'affichage des éléments est déterminé par a(i), nombre aléa- 
toire. || est donc différent à chaque jeu. Pour donner une im- 
pression d'affichage en désordre, la place de chaque élément 
sur une ligne est aussi définie par un autre nombre aléatoire X 
qui déplace cet élément de la gauche à la droite de l'écran (af- 
fichage prévu pour des mots ayant 10 lettres au maximum). 


La ligne 170 sert, pour la deuxième phrase et les suivantes, à 
effacer de la mémoire les éléments des phrases précédentes 
(pour le cas où la nouvelle phrase serait plus courte que la pré- 
cédente). Cette ligne est superflue, mais elle est là pour que 
vous ne l'oubliez pas si un jour un de vos programmes utilise 
cette méthode. 


AMSTRAD CPC comparant la réponse à la phrase de base, 
lettre à lettre, un espace en moins ou en trop amènerait un 
message d'erreur. 


Modifications 


Il est possible de donner plus ou moins de réponses pour une 
phrase en modifiant la ligne 550. On peut aussi augmenter ou 
diminuer le nombre de phrases du jeu (variable F, ligne 620) en 
aménageant les lignes de DATA. 


Il peut être intéressant d'ajouter un compteur d'erreurs : 


161:TR=0 

601:TR=TR +1 

et en ligne 620 : PRINT « TU AS DONNE »;tr;« REPONSES 
FAUSSES » cela avant le END 


On peut aussi lister sur une imprimante les réponses fausses 
des enfants afin de connaître les erreurs rencontrées et y re- 
médier par la suite. 
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Adaptations 


Un autre programme « J'écris tout seul » vous propose une 
adaptation pour les enfants de 6 et 7 ans, utilisant les manettes 
de jeu et n'obligeant pas l'enfant à taper la phrase. 


Il est bien sûr possible de changer les phrases en DATA, tou- 
tefois il faut respecter certaines normes si l’on ne veut pas être 
obligé de transformer le programme : 


— compte tenu de l'écran, chaque phrase ne doit pas dépas- 
ser 10 éléments ; 

— chaque phrase doit se terminer par un espace (voir parti- 
cularités techniques) ; 

— vous devez veiller à ce que vos phrases ne puissent pas 
s'écrire dans un autre ordre (complément circonstanciel 
qui peut être placé avant ou après le verbe), AMSTRAD CPC 
n'acceptant comme bonne réponse que votre phrase. 


Il serait possible, comme pour « Autodictée » de rentrer les 
phrases en début de programme, ce qui permet de les adapter 
au travail du moment, mais oblige à les taper à chaque nouveau 
chargement (pensez aussi à placer en ligne 162 GOTO 190). 
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Programme Construction de phrases 















Lecture de la phrase 
en DATA 
Décomposition en 
éléments 





Affichage en désordre 
des éléments 
de la phrase 





de la réponse 
(tapée au clavier) 








nombre de réponses 





Affichage de la 
bonne réponse 











out 





{nombre de phrases) 


Organigramme 
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14 
20 
20 
40 
JA 
6@ 
70 
30 
90 
100 
110 
120 
sr] 
te! 
LEO 
Se" 
140 
QUF 
150 


160 += 


170 
180 
190 
200 


AMSTRAD A L'ÉCOLE 


RENM Sr nds at ei or ns ae a RS 
REM —— 
REM 


REM FUAUE tin 
REM 000 sovme v00e ous sv 2000 
(EN js 
REM-#2 
REM. 5 = 
MODE 1: FAPER 
#0: RANDOMIZE 
LOCATE 2,10:FRINT 


#4 


des mots en desordre" 
FARINT:FARINT " TU dois les 
n'," ordre pour former une phrase", 


ERINT:FRINT " 
LOCATE 5,241 PRINT 
CONTINUER" 
LFINEEVEÆS IF 
f+1 

IF fl THEN FOK 
READ ph# 
p#i:l=LENCph#) 
FOR i=i TO 1 


it=" 


| CONSTRUCTION DE FHRAS ES 
D,Nielsen nov 83 


Module PFARSNERE EN 


LI: FEN Q:CLS 
TIME/1000 


Et ensuite, 


ii 


jan 86 


"TU vas 


taper 


"AFFUIE SUR UNE 


replacer dans 


catte 


voir apparaitre" 


Le 
M correc 


phr'a 


TOUCHE F 


THEN 189 ELSE CLS 


i 


210 X#=MID#(ph#,i,1) 

220 IF HG" OU THEN yémy#+ut ELSE vi (p)ay£: pp 
+ls yen" 

23Q NEXT i 

240 REM eme men 1000 nee ue 0008 aout 000 somme 0006 06308 0000t 080 01000 16000 0066 000 00060 sound 6000 onu 6 nue 08606 a0609 onto 06066 viaue ete dune om 

250 REM -> Module debut du jeu 


240 
270 
280 
290 
OUR 
300 
310 
330 
T40Q 
250 
760 
370 
360 
390 
40@ 
41@ 
420 


REM nie 00 tom ciné sels sosie mob: Sssicaimé da vase its 
FOR i=i TO ZSQG:NEXT 
reQ:CLs 

LOCATE 5,24: FRINT 
CONTINUER" 
iFeINÉEYE:IEF 
REM 
REM 
REM 


i 


1$x" LL 


sort et 


THEN 2:00 


Tirage au 


CLS 
FOR i=1 TO p 


a (1) INT (RND*xp) +1 
IF ii THEN 410 
FOR kæel TO i-i 

IF a(i)“aCk) THEN 
NEXT E 

x INT C(RNDX28) +1 
Je INT CRND#T) +2 


360 


"AFFUIE SUR 


UNE TOUCHE F 


affichage 
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AO FEN j:LOCATE K,1x2- 1: FRINT y#(Ca(i)) 
440 SOUND 1,25,1,15,,1 

45Q NEXT ài 

4 6 Q FR FE M on vob da10n os 0008 00400 0060 0098 0500 20608 obus caen una une née 606 100 vu done dbnue vmbée 066 00 ones maps ohne onto et nt ent 
470 KEM ++ Module reponse 

4GQ REM are es ss Fe Sn e 

490 FEN O:LOCATE 2,21:FRINT "A toi de taper le 
s mots dans le bon'",'" ordre, pour former une p 
hrase correcte" 

209 LOCATE 2,2%: INFUT rep#irep#eUP"PFERE (rep#) 
10 IF rep#xLEFT#(ph#,1l-1) THEN 600 

340 SOUND 1,40%,20,15,,1:FRINT " FAUX" 


Da FOR il TO TOO: NEXT i 
940 FOR ii TO 2S:LOCATE L',isFRINT SFACE# (C2:9) 
INEXT i 


590 ræer+ilsiF ré&4 THEN LOCATE 2,21:PRINT "Recom 
mence':G0OTO0 500 

560 FOR i=20 TO 24:LOCATE 1,i:PFRINT SFACE#(:9) 
s=NEXT ji 

570 LOCATE 1,2G0:FRINT "La phrase correcte etai 
€ sun 

580 FRINT:PRINT ph 

590 GOTO 410 

60 SOUND 1,100,20,15,,12FRINT " BRAVO" 

6410 FOR izi TO SGOB:NEXT i 

420 IF fr4 THEN CLS: FRINT " C'est termine, au 

revoir'': END ELSE 160 

1800 DATA "LE FETIT CHAT JQUE AVEC LA FELOTE D 
E LAINE " 

1010 DATA "LES GARCONS JOUENT SUR LE TERRAIN D 
E FOOTBALL " 

1020 DATA "MES SOEURS ONT UNE GRANDE FOUFEE EL 
QNDE " 

1050 DATA "LES FETITES HIRONDELLES SONT FERCHE 
ES SUR LES FILS ELECTRIQUES " 


J'ÉCRIS TOUT SEUL 


Thème 


Exercice d'assemblage des différents éléments d’une phrase, 
présentés dans le désordre. 


Niveau 


6-7 ans (Cours préparatoire et Cours élémentaire 1° année). 


Intérêt pédagogique 
Connaissances 
— lecture de mots, de phrases ; 


— grammaire : découverte intuitive de la phrase correcte ; 
— reconnaissance des éléments de la phrase. 


Savoir-faire 


— synthèse orale de la phrase ; 
— raisonnement par élimination des éléments déjà utilisés. 
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Déroulement 


Après explication du jeu (qu'il faudra lire aux plus petits qui 
ne pourront déchiffrer seuls le texte de présentation), les élé- 
ments d’une phrase apparaissent dans le désordre, dans des 
cases jaunes. 


Le joueur doit illuminer la case contenant l'élément n° 1 de la 
phrase avec la manette de jeux. 


S'il se trompe, un message et une musique le lui signalent, il 
peut recommencer. 


Lorsqu'il a pointé la bonne case, le mot s'inscrit au bas de 
l'écran. 


Puis il doit indiquer le 2° élément, ainsi de suite. Au fur et à 
mesure des bonnes réponses, la phrase apparaît en bas de 
l'écran. 


Trois phrases différentes sont proposées dans ce jeu. 


Le déroulement est assez proche de celui du programme 
« Construis une phrase ». La principale différence réside dans 
l'utilisation de la manette pour donner la réponse, au lieu de 
taper la phrase. Bien sûr, la copie de mots par l'intermédiaire 
du clavier a son intérêt pour les plus grands, mais l'exercice 
serait trop long pour les petits. 


Comme pour « Lecture C.P. », les mots qui apparaissent sur 
l'écran sont entrés en minuscules car leur graphisme est celui 
des livres de lecture, donc plus lisible pour l'enfant. 


Commentaires 

100 à 250 Initialisation et présentation du jeu. 

270 Effacement de la mémoire des phrases précé- 
dentes. 

280 à 330 Lecture de la phrase et décomposition en élé- 
ments. 

370 à 400 Initialisation du jeu. 

440 à 530 Tirage au sort d'un élément : le numéro d'un 


élément est tiré au sort (ligne 450). Il est com- 
paré aux numéros déjà sortis (lignes 470 à 490). 
S'il n'a pas déjà été utilisé, il est validé, sinon 
on recommence le tirage au sort. 
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510 à 530 Boucle pour afficher les différents éléments de 
la phrase, dans leur fenêtre. 

570 à 590 Question. 

600 à 710 Réponse par déplacement du curseur et vali- 
dation par “barre espace” ou bouton de tir. 

720-730 Bonne réponse : affichage de « EXACT » : une 


séquence musicale est jouée : les éléments de 
la phrase déjà trouvés sont affichés. 

Réponse fausse : affichage de “FAUX” et même 
séquence que précédemment. 


740-760 Phrase complète - Test nombre de jeux. 
770 à 790 Phrases du jeu en DATA. 
800 Fin de jeu. 


Particularités techniques 


Jusqu'à la ligne 390, le programme est très proche de 
« Construction de phrases ». Seules différences : 


— la phrase, plus courte, est lue en un seul DATA ; 

— le principe de découpage de la phrase en éléments (lignes 
300 à 330) implique que P sera plus grand que le nombre 
d'éléments. On a ajouté la variable NM (nombre de mots) 
= P-1, qui correspond donc au nombre d'éléments. 


Lors de l'affichage des éléments, chaque fenêtre (1) (une à 
sept au maximum) est affectée du numéro d'ordre de l'élément 
dans la phrase ai). 


C'est ce qui permet de tester ensuite la valeur de la réponse 
ligne 720 : a(j) = S 


S : numéro de l'élément demandé. 


Modifications 


Le programme ne permet de passer à l'élément suivant de la 
phrase que lorsque l’on a trouvé la bonne réponse (l'instruction 
NEXT | est placée ligne 760 après le message exact), ainsi l'en- 
fant peut recommencer autant de fois que cela est nécessaire. 
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Pour limiter le nombre de réponses, il faudrait ajouter un 
compteur de « coups » qui enverrait à une ligne affichant l'élé- 
ment à trouver au bout de deux ou trois essais (dans le sous- 
programme « Réponse fausse » ligne 720). 


On pourrait ainsi augmenter le nombre de phrases, mais un 
enfant de 6 ans se fatigue vite sur un tel programme et l’expé- 
rience prouve que trois phrases correspondent à une durée ac- 
ceptable. 


Pour jouer avec une manette de jeux il faut remplacer les 
lignes 620 à 660 par 


6820 reprJ0OY(@) 

825 FOR k=i TO 1@B:NEXT Ek 

45 IF repi:1i AND rep#*#2 AND rep#+1é6 AND rep«: 
32 THEN 620 

640 IF rep=lé OR repxi? THEN 720 

650 LOCATE#Hj,13,2:PRINT#)j,",." 

686Q IF repsi THEN j=j+1 ELSE j=j-i 


Adaptations 


Ce programme permet d'entrer vos propres phrases en DATA 
à la place des trois qui sont proposées, à condition de respecter 
quelques règles : 


— pas plus de sept éléments dans la phrase (place sur l'écran) ; 

— vous devez terminer la phrase par un espace ; 

— si vous utilisez des mots de plus de dix lettres, il faut agran- 
dir les fenêtres. 


Chaque phrase commence par une majuscule. Si vous tenez 
à ce qu'elle finisse aussi par un point, rien de plus simple : 


— ajoutez un point juste derrière le dernier mot (puis l'espace 
final), il apparaîtra avec ce mot, dans la même case ; 

— où bien encore, séparez-le du dernier mot par un espace. 
Exemple : rue.” . Il formera un élément à lui tout seul (le 
7° au maximum !) dans une fenêtre et l'enfant devra l'ajou- 
ter à la suite des éléments. 


Le programme suivant « Reconstitution de textes », sur une 
base technique très proche de « J'écris tout seul », propose pour 
les enfants plus grands un exercice dont le but est tout à fait 
différent. 


Programme 
J'écris tout seul 


Affichage en désordre 


dans des fenêtres 








En dehors 


des cases 





Affichage des éléments 


précédents 





Organigramme 





J'ÉCRIS TOUT SEUL | 149 


Lecture de la phrase 
en DATA 


et décomposition en 


éléments 











des éléments 









Pour | = 1 à MN 


(nombre de mots) 


Entrée de la réponse 





(manette de jeux) 


Test réponse 





Affichage de 
la réponse et 


des éléments 
précédents 





oui 


non 
Bravo | 






oui 





(nombre de phrases) 


non 
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10 RM mo mn 
20 REM -- J'ECRIS TOUT SEUL -- 
310 REM --- D.Nielsen nov 835 --- 
4Q REM —---— Augustin jan 86 —--- 


SQ REM ---—— ee me 

6Q ON EREAK GOSUE 800 

70. REM == ee oo op or ot eo ee 
80 RKEM -* Module presentation 

D" REM. esse en een ne or me ei oo 


100 MODE 1:FAPFER 13:FEN @:CLS 

11Q f=0:RANDOMIZE TIME/1000 

120 FOR izi TO 5 

150 j=INT (RND#5) +2 

140 WINDOW#i,3,16,22-4#1,24-4%#i:PAFERKI,j::CLS 
#i:PEN#Ii,3j+1 

150 NEXT ji 

160 WINDOWK#6,24,568,2,4:FAFERKG ,0: FEN#K6 , 1: CLS#G 
170 WINDOWKH7,24,58,6,8:FAFERK7,2:PENK7,3:CLS#7 
180 WINDOW 2,58,2%,24:FAFER 1Q:FEN @:CLS 

190 FOR i=1i TO S:LOCATE#Hi,2,2: PRINT#i,'"J'ECRIS 
MaNEXT 

200 LOCATE#OG,2,2: FRINT#6, "TOUT" 

210 LOCATE#7,2,2:FRINT#7,'"SEUL" 

220 FRINT "Tu vas voir apparaitre," des mots 
en desordre" 

250 FOR i=1i TO SOOB:NEXT ji 

240 FRINT " Tu dois les replacer dans le bon", 
" ordre pour former une phrase," correcte" 
290 FOR i=i TO SOBG:NEXT ji 

240 f=f+i 

27Q IF fé1i THEN FOR i=si TO p:y#(i)="":NEXT i 

280 KREAD ph# 

290 p=i:1#LEN(ph#) 

3200 FOR izi TO 1 

310 X#=MID#(ph#,i,1) 

220 IF KE" OO!" THEN y#=y#f+x$ ELSE y$(p)=y#:p=p 

+iiy#æenn 

ZJIQ NEXT :i 

AO REM a ce eo eo oem nee om 

250 REM -5 Module debut du jeu 

F60 REM mue ce me eue ane ea em ae ne oo mo 

370 s=iim#ts=""iCLs 

380 LOCATE 1,2:PRINT "AFFUIE SUR UNE TOUCHE FO 

UR CONTINUER" 

390 i$=INKEYE#:IF i#="" THEN 590 

400 nm=p-i 

41Q REM = ee or oo me oo 

420 REM -5 Tirage au sort 
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AIO REM meme ne one ea a ee 
440 FOR i=i TO nm 

450 ai) =INT C(RNDxnm)+1 

460 IF i=i THEN 500 

47Q FOR kzi TO i-i 

ASQ IF a(i)=a(k) THEN 450 

49Q NEXT EH 

3DQ NEXT ji 

910 FOR i=i TO 7 

SO CLS#i:LOCATE#HIi,R,2:FRINT#i,y#(a(i)) 
J:Q NEXT ji 

SA QI RE Mein etes ee ec ae D PB A 
990 REM -} Module reponse 

DOD. REM 2m ares nid oué png on 2 me em mé ee 
370 CLS 

580 FOR ii TO nm 

590 LOCATE S,%:FRINT "Quel est le mot No";is"d 
e la phrase" 

60Q LOCATE#HI, LE, 28 FRINT#HIL,CHRE (24) 


61 j=i 

GPO ifeINEEY#:IF ite"" THEN 670 

BEQ IF it£z"1" AND i$“s"D" AND itis" " THEN SO 
UND 1,400,20,15:GOT0 620 

64Q IF if=" " THEN 720 


650 LOCATEHj,15,2:FRINT#j, "M" 

60 IF itz"i" THEN j=j+i ELSE je ji 

870 IF je8 THEN jæl 

6EQ IF j=Q THEN j=7 

68% SOUND 1,120,10,15 

700 LOCATE#HJj,1E,2: FRINT#)j,CHRE (224) 

710 GOTO 420 

720 IF aj)es THEN CLS: FRINT !" C'est exactC'"'im# 
ÆmÉt+U OV E (CL) PRINT mt ELSE SOUND 1,400,20:CLS 
tÉRINT " Faux, recommence '": FRINT m#:GOTO &20Q 
750 LOCATEH#),1%,2: PRINTH#j M," 

740 sxs+lilF si:p THEN 760 

750 IF f=% THEN 800 ELSE 250 

764Q NEXT i 

77Q DATA "ELLE EST DANS LA RUE " 

780 DATA "LE BEBE EST DANS SON LIT " 

790 DATA "LE FETIT CHAT JOUE AVEC LA BALLE ? 
800 CLS: FRINT "AU REVOIR": END 


RECONSTITUTION 
DE TEXTES 


Thème 
Exercice de reconstitution d'un texte à partir d'éléments pré- 


sentés dans le désordre. 


Niveau 


A partir de 7 ans (avec des textes simples). A partir de 9 ans 
pour les textes proposés dans le programme. 
Intérêt pédagogique 
Connaissances 

— imprégnation de textes choisis parmi les œuvres de grands 

auteurs ; 

— découverte des structures grammaticales d'un texte. 
Savoir-faire 

— recherche par élimination, lecture d'indices (ponctuation) ; 


— synthèse orale d'un texte ; 
— logique. 
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Déroulement 


Après explication de l'exercice, sept ou huit parties d’un texte 
s'affichent en désordre, dans des cases sur l'écran. Le joueur 
doit ensuite sélectionner avec la manette (ou le clavier) les élé- 
ments du texte, les uns après les autres, dans l’ordre correct du 
texte initial. 


Une séquence musicale et un message signalent les erreurs 
et le joueur doit recommencer. 


Si la case pointée est bonne, son numéro d'ordre dans la 
phrase s'affiche à côté de l'élément. 


Trois textes d'auteurs sont ainsi proposés, dans ce pro- 
gramme. 


Commentaires 


Ce programme a été réalisé sur la base de « J'écris tout seul ». 
Voici les modifications effectuées : 


1030-1100 ; , 
Les 7 ou 8 parties des textes sont entrées sé- 

1140-1210 : . : 

1250-1330 parément, mais dans l'ordre exact, en DATA. 

190 à 200 Lecture des différentes parties d'un texte en 
DATA. 

500 à 610 Réponse et test réponse. La réponse (case vi- 


sée) est déterminée à partir de la coordonnée 
verticale du point visé. 


Particularités techniques 


Les textes sont partagés en sept ou huit éléments maximum. 
Pour une question de mise en place sur l'écran : c'est le nombre 
limite de lignes pouvant être affichées à la fois dans le désordre, 
en haut de l'écran afin d'y laisser la place des messages. 


Toutefois, le principe de lecture des parties de texte en DATA 
(lignes 190 à 200) permet d'entrer éventuellement des textes 
plus courts (ne pas oublier la ligne DATA « ZZZZ » qui sert de 
séparateur entre les textes). 
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Modifications 


On peut introduire une limite au nombre de réponses en ajou- 
tant un compteur d'erreurs dans le sous-programme « Réponse 
fausse » ligne 610. 


Le nombre de textes est fixé ligne 660 : des textes supplé- 
mentaires pourront être ajoutés en modifiant cette ligne et... en 
les entrant en DATA ! 


Pour jouer avec la manette de jeux, il faut remplacer les lignes 
500 à 550 par 


2308 rep=JOY(@) 

J10 FOR k=1l TO I1QO:NEXT KE 

Je0 IF rep“1 AND rep#*:2 AND rep#*1i6 AND rep“? 
32 THEN 500 

J30 IF reprié OR repri? THEN 620 

240 LOCATE 59 ,2%xj-1s PRINT M," 

J9Q IF rep=i THEN j=j+i ELSE j=j-1 


Adaptations 


Les textes entrés en DATA seront changés lorsque les enfants 
les connaîtront bien. 


Pour donner toute sa valeur à ce travail, il faut choisir des 
textes d'auteurs, suffisamment courts pour être partagés en sept 
ou huit éléments (chaque élément ne pouvant contenir que 34 
caractères ou espaces pour être affiché sur une seule ligne). 


Un texte plus long sera partagé en trois ou quatre para- 
graphes successifs qui seront à leur tour décomposés en élé- 
ments. 


Le niveau de ce programme dépend essentiellement de la 
difficulté des textes proposés. 


Remarque : L'organigramme de ce programme est le même 
que celui utilisé pour « J'écris tout seul ». 
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Programme 
Reconstitution de textes 


Lecture de la phrase 
en DATA 

et décomposition en 

éléments 





Affichage en désordre 
des éléments 
dans des cases de couleurs 





Pouri-1àp 
(nombre de mots) 





Entrée de la réponse 
(manette de jeux) 










En dehors 
des cases 


| 


Affichage de 
la réponse et 
du numéro 
de texte 





Test réponse 














Bravo ! 


F<3 
(nombre de phrases) 








Organigramme 
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10 KREM — en mue anre snon same see cute cm cu one on cé nue one come ne com co ue oi oui ane mme moe ane De 
20 REM ++ RECONSTITUTION DE TEXTE -- 
20 REM +----- D.Nielsen nov 935 =. 
ca REM: Cerirmeie PHaUSE En. Jar 06: see 


+ Module presentation 

9Q MODE Lis FAFER LS FEN QiCLS 

100 (RS VRANAPEESR TINE/1000 

11Q LOCATEÉ 8,5%3FRINT MRECONSTITUTION DE TEXTE" 
120 LOCATE 2° 10: PRINT MTU vas voir apparaitre" 
," des morceaux de texte en desordre" 

160 FAINTeFAINT Tu dois les replacer dans le 
bon," ordre pour former une phrase!"," correc 
te" 

140 FRINT:FRINT " Deplace le curseur sur les e@e 
Lements!"!"," choisis les uns apres les autres" 
1950 LOCATE 4,24: FRINT "MAFFUTE SUR UNE TOUCHE F 
OU CONTINUER" 

160 iFeINEEVÆS IF 1H THEN 16QO:ELSE CLS 

170 faf+i 

180 p=Q 

190 KEAD ph 

200 IF ph#<:"2222" THEN pæp+lsyi(p)eph#sGOTO 1 
9Q 


210 REM eme vante v000 eee om s0ee anne mao vo mme 0000 etes onvus move 0006 nome onvue a000e 0006 ous mue 0006 mm v000 nes 2000 ue annee eve mue 2000 


220 REM -% Module debut du jeu 

DD REM een our oue ns a ans aux one ne do ce aq ae ee 
240 FOR ii TO ZSOU:NEXT i 

250 s=1:CLS 

260 LOCATE 3,24: FRINT "AFPUIE SUR UNE TOUCHE F 
OUR CONTINUER" 

270 iFf=INKEY#:IF if"! TMEN 270 

LU D REM..ss es se 28 Buts er be Ep on op po 
290 REM +5 Tirage au sort et affichage 
+00 REM nu 250 OS leve Cove tubes Gé Den com nos au oeil mur il jeun ci ai ns Une ind tail Guns ob sou au Toi ia 
310 CLS 

320 FOR i=i TO p 

H3Q à Ci) = INT CRND#p) +1 

FAQ IF ii THEN 5680 

250 FOR kæl TO i-1 

HO IF aCi)ra(k) THEN 250 

37Q NEXT KE 

260 j=INT CRNDXE) +2 

390 FEN jerLOCATE 1,121 PRINT vÆ Ca Ci)) 
400 SOUND 1,55,1,15,,1 
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410 NEXT ji 

4. es @ F FE M s000 anne 100 0006 nome 0000 sus 2080 open mme 0000 oeses moe s000 0000 oeons names 20000 
4SQO KEM -% Module : 

RAD RÉM- ss ES 
ASQ PEN @iLOCATE %,: 
Les morceaux !"," 
460 FOR iæl TO p 
470 LOCATE 2,24: PRINT l'QOuel est le morceau No" 
sis"de La phrase" 

4890 LOCATE 9,1: FRINT CHFGE (234) 

490 J = 1 

SO ï INEÉEV#: TE I ReUt THEN 500 

IQ IF LH EMI AND ic s"0" AND if" " TMEN 60 
UND 1,400,20,1%:G0T0 500 

Se0 [IF i#æe" ! TMEN 610 

JO LOCATE E9 x jets FRINT M," 

SJ [FO 14m tlt TMEN jejri ELSE je ji 

JO IF jæp+i THEN jzi 

6 IF j=Q THEN j=p 

J/Q SOUND 1,111,10,15 

60 LOCATE 29,2#j-1:FRINT CHR# (224) 

J9Q FOR kH=20 TO 2ZS:ILOCATE 1,k: PRINT SFACE# (#9) 
sNEXT KE 

608 GOTO 500 

610 IF a(j)=s THEN LOCATE 2,20:FRINT "C'est ex 
act'iLOCATE 57,2%) 1: FRINT i ELSE SOUND 1,400, 
20,1S:LOCATE 2,20:FRINT "Faux, recommence! :G0OT 
O0 500 

62Q LOCATE 39,2 ji: FARINT M," 

IQ sestlilF stp+i THEN 4670 

640 CLS:FOR kel TO piFRINT V#CH)ENEXT k 

650 FOR k=i TO TOPO:NEXT EH 

660 IF f=3 THEN 680 ELSE 170 

67Q NEXT ji 

680 FOR i=i TO SSOBINEXT ji 

69@ CLS:PRINT "AU REVOIR!" 3:END 

1 (Pa) (Pa) Q F4 E M one mue mme ne ane cop os nv 00 une 00000 0606 anees 00000 0006 600 nanas 2006 00e mate ane 000 06006 nue 0008 0 BUS ann 000 nous aa 

1010 REM -5 LE FETIT FRINCE DE SAINT EXUFERY 

1 (Pa) es (Pa) F* FE M ue son soute mets sense moe mom some son som eve oies onu onto eee ob 00e de one ones noces sovee vvmut unes manne notée o0tce oo 00000 mao seu0e 

1029 DATA MMA VIE EST MONTONE, " 

1040 DATA "JE CHASSE LES FOULES," 

1050 DATA "LES HOMMES ME CHASSENT, " 

1060 DATA "TOUTES LES FOULES SE RESSEMBLENT" 
107 DATA "ET TOUS LES HOMMES SE RESSEMBLENT, " 
1080 DATA "MAIS SI TU M'AFFRIVOISES," 

1090 DATA MMA VIE SERA COMME ENSOLEILLE, " 

1100 DATA "72227" 






"RINT TA Loi de trouver 
dans Le bon ordre" 





1110 
1120 
1170 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1er Q 
140 
1250 
1260 
1270 
1260 
1290 
1:00 
1510 
LEP0 
15350 
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F E M annee ss20e couve serve sauve muves anses aavne aveee none anooe sonne somme avoue noue a000e oon0e oo ee oéooe 00e oooee ons aoves oovee nee 
REM + D'apres MAURICE GENEVO 
F4 EF: M voeu sono sono s00m mone maste sacre mate sevre 
DATA "C'EST UN F 
DATA "A ROBE GKRISE" 

DATA "D'UN GRIS VELOUTE ET FROFOND, " 
DATA MLORSQUE LE VENT REMUE LA KRAMILLE" 
DATA "QUI LE FORTE," 

DATA "IL OSCILLE DOUCEMENT," 
DATA "SUR GES FATTES, " 

DATA "2222" 

PEM scie deu en einded een nues ete nt and 
KEM + d'apres M, VAN DER MEERSCH 
Ft [EN M mue os os mu aus one mue one ave one ou ou ane ane une ue nn an av va ae on a ne an vs ve ae " 
DATA "DEMHORS," 

DATA "LA TEMPETE S'ETAIT LEVEESs" 
DATA OMLE VENT D'QOUEST GEMISSAIT" 
DATA "DANS LA CHEMINEE, " 

DATA MON L'ENTENDAIT KODER" 

DATA "DANS LES COULOTRS" 

DATA "COMME UN GRAND CHIEN INQUIET" 
DATA "QUI FLEURE, " 

DATA "2222" 













COCKTAIL MAGIQUE 


Thème 


Programme de travail sur les fractions en composant des 
cocktails. 


Niveau 


A partir de 10 ans (Cours moyen 2° année - 6° - 5°). 


Intérêt pédagogique 
Connaissances 
— utilisation de fractions ; 


— mécanisme de la proportionnalité et de la règle de trois ; 
— travail sur les volumes. 


Savoir-faire 


— entraînement au calcul mental ; 
— habileté du barman ! 
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Déroulement 


Il s'agit de composer un cocktail (sans alcool !) pour lequel 
les proportions sont affichées, dans une carafe dont le volume 
est déterminé de façon aléatoire. Le joueur doit indiquer le vo- 
lume de chacun des jus ou sirops qui composent ce cocktail. 


En cas d'erreur de calcul, le programme guide le « futur bar- 
man » afin qu'il parvienne à la bonne réponse. 


Enfin, il doit indiquer quel volume d’eau doit être ajoute pour 
compléter ce cocktail. 


Chaque réponse est matérialisée par une couleur différente 
dans la carafe dessinée à l'écran. 


Commentaires 


100 à 160 Présentation du programme. 

170 à 260 Choix du cocktail. 

300 Choix aléatoire du volume de la carafe (10 - 20 - 
30 - 40 - 50 - 60 … 100 cl). 

320 à 400 Dessin de la carafe et indication des propor- 
tions. 

600 à 850 Calcul du volume de chaque composant (1 à 3). 

890 à 1000 Visualisation dans la carafe de chaque bonne 
réponse. 


1040 à 1250 Calcul du complément d'eau et visualisation de 
la réponse donnée, même si elle est fausse (la 
carafe « déborde » si la réponse est trop 
grande). 


1260 à 1310 Fin de programme. Retour possible à un autre 
calcul avec un cocktail différent et un nouveau 
volume de carafe. 


1320 à 1490 Sous-programme « la carafe déborde » en cas 
de complément d'eau trop important, puis ef- 
facement de cette visualisation. 


1500 à 1520 

1530 à 1550 

1560 à 1580 Liste des proportions des cocktails et couleurs 
1590 à 1610 des composants. 

1620 à 1640 

1650 à 1670 
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Particularités techniques 


Les proportions des cocktails sont inscrites en DATA. Le choix 
du cocktail renvoie à une ligne (450 à 500) contenant une ins- 
truction RESTORE qui permet la lecture des proportions de ce 
cocktail. 


Les trois calculs de volume des jus de fruits ou des sirops 
sont obtenus par le même programme à l'intérieur d'une boucle 
FOR... NEXT (lignes 600 à 1000). A l'intérieur de ce calcul, si la 
réponse n'est pas bonne, le programme décompose la fraction 
en une multiplication et une division entière, demande chaque 
calcul et revient en arrière si la réponse n'est toujours pas la 
bonne (lignes 680 à 760). 


Le joueur ne peut donc sortir du programme qu'en ayant 
trouvé la bonne réponse (d'où l'inutilité d'un score à afficher). 


L'initialisation de la séquence aléatoire qui détermine le vo- 
lume de la carafe est obtenue en utilisant la fonction RND. 


Modifications 


Quelques aménagements à ce programme permettraient de 
prendre en compte des réponses décimales. 


Ne tenir compte que de la partie entière de la division donne 
en effet des résultats trop « arrondis » si le volume tiré au sort 
est faible. Mais d'autre part, un travail sur les nombres déci- 
maux ne peut plus se faire en calcul mental à 10 ans! 


À chacun donc de choisir l'adaptation qui correspond à la 
tranche d'âge des enfants qui travailleront sur ce programme. 


Adaptations 


L'auteur décline toute responsabilité dans les proportions de 
ces cocktails inventés pour le programme | 


Vous pouvez modifier les lignes 1500 à 1670 en ÿ composant 
vos propres cocktails. 
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Attention deux impératifs : 


— trois composants + de l'eau ; 
— ne pas utiliser de fractions plus petites que 1/10 (car le 
joueur aura des problèmes si le volume choisi est 10 cl). 


Enfin, si vous voulez faire connaître à vos amis vos boissons 
préférées, toutes les variations d’Alexandra, de Manhattan, de 
Bloody Mary, etc., peuvent y être notées. À eux d'avoir le bon 
tour de main ! 
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Programme 
Cocktail magique 


Présentation 












Choix du 
cocktail 
et lecture des 
propositions 


Affichage 
récipient et 


proportions 





Résultat 


Résultat faux 


exact 


Décomposition 
de la fraction en une 
multiplication 
et une division 


Matérialisation 





du résultat 





oui non 








Entrée 
d'un nouveau 
résultat 











Entrée 
du volume d'eau 


Résultat Résultat 
exact faux 








Guide des 


Fin du jeu opérations 





Organigramme 
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1Q REM eee ee er eee 

20 KEM --- COCETAIL MAGIQUE ---— 

F0 REM --+ D,Nielsen nov BE --- 

40 REM --—-- Augustin fev 86 --- 

SD, REM Eee eo de Ps pe D Ru 

6Q ON BREAK GOSUB 1270 

70 REM wunee v0000 eovee vom cotes sans 0060 mes eme ce 20800 00609 eee mms seau onu 00e 00e 2000 00000 00m 000 omvus 000us 000 UE oups eue 0eme m0 m6 6606 

90 KREM -% Module presentation 

90 REM w020 cote eme 1000 tm sa 00e one 0006 eus 2006 6006 anus 20000 06 DU ue 2006 0000 60 éme 0000 0006 LUS 100 608 nu 0000 008 nan 1000 0000 

100 MODE 1:FAFER 13:FEN @:CLS 

110 KANDOMIZE TIME/1000 

12Q LOCATE 10,5:FRINT "COCKTAIL MAGIQUE" 

150 LOCATE 2,8:PFRINT "Un cocktail est un melan 
ge"," de plusieurs boissons dans un verre"," o 

u une carafe 

140 FRINT:FRINT " Tu vas devoir preparer", ,'" un 
cocktail de ton choix" 

150 LOCATE 2,24:FRINT MAFFUIE SUR UNE TOUCHE F 
OUFS CONTINUER" 

160 1FRINFEV#SIF 1#m"" THEN 160 

17Q CLS 

180 LOCATE S5,5:FRINT HAWAII DRINF. un un nu 1" 
190 LOCATE 5,7:PFRINT "COCKTAIL EXOTIQUE..,.2" 

200 LOCATE S,9:FRINT M"COCHTAIL ESQUIMAU.,.3" 

210 LOCATE S,11:PRINT "BROISSON ROSE......,.,..4" 

220 LOCATE S,1%T: PRINT "BONNE MINE ss sn 9" 

220 LOCATE S5,1S:FRINT MVIN DE FRAISES......6" 

240 LOCATE 5,17:INFUT "Ton choix "schoix 

280 IF choixéi OR choixré THEN 170 

260 LOCATE 5,20:INFUT "Quel est ton prenom "sn 

om: nOoMÉEEUPFERE (nommé) 

2 70 LREM SSSR S RSS Es Es nées ne re seen ne ne res 

290 KEM -% Module dessin recipient 

290 REM eevee even s0000 mare mme same mets conte mme atece moune 00e dame 00000 eee ve méee 13008 00000 onu 0000 mans 00000 ou006 ee mans 0000 annee 0006 ouate 000 

300 CLS 

310 VOol= INT (RND*x9+1) #10 

220 FOR ii TO 12 

3H0 LOCATE 5,541: PRINT CHR (147) 

H4Q LOCATE 11,341: PRINT CHK# (145) 

350 NEXT ji 

360 FOR iré TO 1G:LOCATE i,1Ss:FRINT CHR#(1435): 

NEXT ji 

37Q LOCATE 20,4:FRINT "Le volume de la" 

380 LOCATE 20,S:PRINT "carafe est de" 

390 LOCATE 19,6:FRINT vol:s'"'centilitres" 

AG frldite 

410 REM etes nés niees vvtte ahtte vente 06608 né06e abbé cime coco copee come mous 2200 eee 29000 09000 (mes cut moe une Oe mbade ét ae oo en ee 06e ones 


420 REM + Module proportions 


470 
440 
4530 
460 
470 
480 
490 
500 
S10 
me0 


S.30 


540 
550 


60 


70 
s 630 
«2 v À 
(EXP 174 
& 10 
# NE 
ét 





& pr" 
es !! 
4410 
CES 
1 ( 

52 
bé 
670 
6530 
3 NE: 


700 
oic 
710 
de! 


COCKTAIL MAGIQUE | 167 


REM Es dl done ml in0e in tt de ms de sa Do os dns ve au Gus mo ui de Des ns es om es 
ON choix GOTO 450,460,470,480,490,500 
RESTORE 1500:G0TO S10 

RESTORE 153:0:G0TO0 S10 

RESTORE 1560:G0T0 510 

RESTORE 1590:GOTO0 510 

RESTORE 1420:G0T0 510 

RESTORE 1650 

FOR isi TO 3 

KEAD nu(i),de(i),a#(i) 

LOCATÉ 20,6+2%1is: PRINT nuGi)s"/"sde(i)s"de" 


LOCATE 20,7+2#%1: PRINT a (Ci) 
NEXT ji 
LOCGATE GO, IS PRINT let d& L'éau gareuse" 


RE … + Module calcul des volumes 

FOR jæi TO € 

FOR je17 TO 2HiLOCATE 1, is FAINT SPACE CE) 
XT ji 

BSEATE L'ALZEFARINT Combien dois-tu verser 








MTL faut que EU calcules ce que ",!"r 
asser te "li mu (j) a" /a de (j) 3 "des vols !"ceæentilitr 


FFCINT AE Centionm, il faut que Cu arrondiss 
J'tonm resultat au nombre entier inferieur" 
pas de chiffres decimaux)" 

INEUT Quelle est La reponse "srep (ji) 

LE rep Cj) INT Grep Ç(j)) THEN 610 

LF rep Ci) INT (vol xmu(j)/de(j)) THEN 890 

FOR i#17 TO 283 LOCATE 1, is PRINT SPACE C9) 
XT oi 

ENT %,#71,20,#009,20,x71,20,%0,0:FOR il TO 
: SOUND 1,0, 100, 159322NEXT ji 

LOCATE 1,173 PRINT "TU te trompes "Minomes MV 
i comment tu dois calculer" 

PRINT "Four prendre les"snmu(j)s"/"sdeCj)s" 
svols "cl" ,"il faut d'abord multiplier";vol: 






"par ""snuc(j) 


720 
730 
740 
nce 
750 
760 


INPUT Cela fait combien !MasrmCj) 

IF FrnCj)ævolxnu(j) THEN 770 

PRINT "Ce n'est pas cela, "inom£i" recomme 
FOR isi TO SOGB:NEXT ji 

GOTO 480 
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77Q FOR i=17 TO 2S:LOCATE 1,1: FRINT SFACE# (5:09) 
INEXT i 

78Q LOCATE 1,172FRINT "IL faut maintenant divi 
ser "srn(j)s;"par's;dec(j) 

790 FRINT "Attention division entiere seul emen 
t","(pas de chiffres decimaux" 

800 INFUT "Cela fait combien "srd(j) 

G10 IF rdCj)eINT(rm(j)/de(j)) THEN 890 

820 FRINT "Ce n'est pas cela, "inom#i" recomme 
nee! 

BEQ FOR il TO SOQO:NEXT 


4 SOUND 1,0,100,1S,,24NEXT ii 

650 GOTO 770 

970 KREM +: Module resultat exact 

690 rep (j) INT (vol #mu (3j) /de (3j)) 

900 FARINT "C'est exact "imomsÆ 

D1Q MEINT Céxnmu(j) /cde (3j)) 

VOD PEN tstætat 

YIQO FOR is. 

GAQ FOX kxé TO 10 

YO LOCATE E, is FAINT CHFGE (14) 

960 NEXT | 

97Q NEXT 1 

90 PEN Qt fehe 

990 FOR il TO SOBBINEXT ji 

LOG NEXT j 

REM -% Module complement d'eau 

FREM È Le 

Fe CES 

)uNEXT 

105Q FEN 2 

1060 FOR i: 
k 
- 











1070 FOR EH 
1080 LOCAT 
1090 NEXT E 

1100 NEXT ài 

1110 F'EN @ 

1120 LOCATE 1,17:FRINT "Combien d'eau gareuse 
doig-tu rajouter" 

1130 INFUT + 

1140 vxvol- (rep (1) +rep (2) +rep (C1) ) 

1190 IF r£év THEN FRINT "Ce n'est pas assez "in 
om#:GOTO 11680 

1160 IF riv THEN GOSUR 12 
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1170 IF rev THEN 1250 
1180 PRINT "IL faut d'abord additionner le vol 
unes!" ,'"des trois jus où sirops verses" 
1190 ENT. 2,#71,20,709,20,%:71,20,=0,0:FOR ii T 
() és SOUND 1,0,100,15,,2:NEXT ji 
1200 FRINT rep (1)3"4tarep CD) 3 "4lsrep CA) 
1210 INFUT "Cela fait combien!"str 
LRQ IF Erésvol-v THEN FRINT Non, "snomé#yi" re 
commence!" ELSE FRINT "Exact, !Minomé 
1220 FOR ii TO SOGBINEXT ji 
1240 GOTO 1040 
1280 FOR ix17 TO 2haLOCATÉ Lis PRINT SPACE C9 
)aNEXT ji 
1260 LOCATE L,172FRINT "C'est exact !"inoméks "EU 
peaux devenir um vrai barman 
1270 PRINT: INPUT Un autre cocktail © © / m ) 
Mirepf 
1280 rep#feUPFPERSE (rep#) 
1290 IF rep#£is"O" THEN CLS: FRINT "Au revoir'sE 
ND) 
1400 FOR ii TO SOBBINEXT à 
1310 GOTQ 170 
1590 FOR iw17 TO 2S:LOCATÉ L',is PRINT SFACE# C9 
DaNEXT à 
ASQ FOR ie9 TO 15 
1340 FOR jæl TO 4 
1290 LOCATE j,is PRINT CHEGE CLASS) 
1560 LOCATE 114+3j,12FARINT CHR# (147) 
1370 NEXT j 
1380 NEXT ji 
1590 FOR ix17 TO 2SiLOCATÉE 1, is PRINT SFACES C5 
)iNEXT ji 
1400 LOCATE S,1784FRINT "CA DEROKDE  , ," 
1410 FOK ii TO SOBG:NEXT i 
1420 FOR iz9 TO 15 
1450 FOR ji TO 4 
1440 LOCATE j,isFRINT " " 
1480 LOCATE 1143j,132FRINT " " 
146@ NEXT j 
147Q NEXT ji 
1480 LOCATE 1,17 
1490 RETURN 
1500 DATA 1,5,JUS D ORANGE 
191Q DATA 1,5,LAIT DE COCO 
1920 DATA 1,4,STROF" DE SUCRE 
1530 DATA 1,5,JUS DE MANGUE 
1540 DATA 2,8,JUS DE FAFAYE 
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1590 DATA 1,10,JUS DE GOYAVE 
1560 DATA 2,5S,CITRON FRESGE 
157@ DATA 1,10,SIROP DE MENTHE 
19569 DATA L,S,GLACE FILEE 

1590 DATA 1,3,JUS DE FRAMEROISE 
1600 DATA 1,4,SIROF DE SUCRE 
1610 DATA 1,10,CREME FRAICHE 
1620 DATA 3,S,JUS DE TOMATE 
16210 DATA 1,4,JUS DE CAROTTE 
164Q DATA 1,1Q,JUS DE CELERTI 
1650 DATA 2,5,9JUS DE FRAISE 
1660 DATA 2,10,JUS DE CITRON 
1670 DATA 1,4,SIROF DE SUCRE 


MASSE ET VOLUME 


Thème 


Il s'agit de calculer le volume d'un cube, puis la masse de ce 
cube rempli d'eau. La masse est vérifiée en mettant des poids 
marqués sur une balance. 


Niveau 


A partir de 10 ans (Cours moyen 1° année et Cours moyen 
2° année) et collège. 


Intérêt pédagogique 
Connaissances 


— calcul du volume d'un cube (référence à l'aire d'une de ses 
faces et à sa hauteur) : 

— connaissance des unités de mesure de volume et de me- 
sure des masses ; 

— approche de la notion de masse volumique. 


Savoir-faire 
— calcul mental ; 


— utilisation progressive de poids marqués pour déterminer 
la masse d'un objet. 
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Déroulement 


Un cube se dessine sur l'écran. La longueur du côté de ce 
cube est déterminée par un nombre aléatoire : nombre entier 
entre 1 et 10. Le joueur doit calculer le volume de ce cube. S'il 
connaît la formule et est doué pour le calcul mental, il peut 
donner directement la réponse. 


S'il ne sait pas comment faire, ou si sa réponse est erronée, 
le programme l'invite à calculer d'abord la surface de la base 
du cube, puis à multiplier cette surface par la hauteur pour trou- 
ver le volume. Il faut noter que, si le côté du cube est supérieur 
à 5 cm, cette deuxième opération ne relève plus tellement du 
calcul mental et l'enfant aura besoin de poser cette multiplica- 
tion par écrit. 


Ensuite, une balance se dessine sur la moitié haute de l'écran : 
sur le plateau de gauche se trouve notre cube rempli d’eau, sur 
celui de droite, rien pour l'instant. Donc le plateau de gauche 
est plus bas et l'aiguille entre les deux plateaux penche vers la 
gauche. 


Dans une série de huit cases jaunes, des valeurs de poids 
marquées s'inscrivent au bas de l'écran (500 g - 200 g- 100 g- 
50g-20g-10g-5g- 119). Le joueur doit donner la lettre 
correspondant au poids qu'il veut mettre dans la balance. 


Lorsque la masse exacte du cube est trouvée, les deux pla- 
teaux sont à la même hauteur. 


Si l'on met trop de poids sur le plateau de droite, celui-ci 
baisse et il faut recommencer la pesée. 


Le programme rappelle aussi la notion de masse volumique : 
« 1 cm° d’eau pèse 1 g, donc... ». 


Commentaires 


100 à 170 Initialisation et présentation du jeu. 

210 à 310 Dessin du cube (en coordonnées graphiques). 
350 Le volume du cube est tiré au sort. 

360 à 570 Quel est son volume ? Si la réponse donnée 


n'est pas exacte : on décompose le problème 
en deux questions (calcul de l'aire, puis du vo- 
lume à partir de l'aire). 
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610 à 730 Recherche de la masse du cube. Dessin de la 
balance, des poids de mesure. h et t détermi- 
nent les positions des deux plateaux. 


740 à 880 Déplacements du curseur sous les poids, lec- 
ture de la réponse validée par “barre espace” 
ou le bouton de tir. 


890 Détermination du poids désigné. 

900 à 960 Modification des paramètres h ett des balances 
en fonction du nouveau poids. 

970 Pas assez | 

980 à 1060 Gagné, le bon poids est trouvé. Fin de jeu ou 


possibilité de continuer. 
1070 à 1100 Trop de poids ! 


1140 à 1280 Sous-programme de dessin de la balance et de 
l'afficheur digital. 


Particularités techniques 


Le choix des poids se fait avec le curseur sous le poids. 


Huit zones sont affichées pour le dessin des poids marqués 
(on ne peut utiliser que huit cases au maximum, en raison de la 
place, c'est pourquoi il n'y a que huit poids et que le poids de 
2 g a disparu !). 


Ensuite, la balance est redessinée : les lignes 1140 à 1280 
permettent d'effacer le précédent dessin de la balance sans ef- 
facer le reste de l'écran. 


Modifications 


Dans le programme présenté, le joueur peut utiliser chaque 
poids autant de fois qu'il le souhaite. On peut imaginer un jeu 
qui corresponde exactement à la boîte de poids marqués. Il faut 
limiter leur utilisation : 


une fois pour 500g 
une fois pour 200g 
deux fois pour 100g 
une fois pour 50 g 
une fois pour  20g 
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deux fois pour 10 g 
deux fois pour 5 g 
cinq fois pour 1g (pour compenser l'absence du 
poids de 2 g). 


Il faut alors ajouter dans chaque série 890 un compteur. 
Exemple : 


886 A—1 THEN 1300 

887 A=A+1 

1300 PRINT« IL N'Y À PLUS CE POIDS DANS LA BOITE » 
1310 GOTO 790 


Ne pas oublier non plus d'initialiser ces variables « compteur » 
au début du jeu. 


Pour jouer avec la manette de jeux, il faut remplacer les lignes 
790 à 830 par : 


79Q rep=JOY(@) 


32 THEN 790 

810 LOCATE j,Z24:FRINT " " 

815 FOR i=1i TO 1@G:NEXT i 

820 IF repsié OR rep=32 THEN 890 
870 IF rep=8 THEN j=j+4 ELSE j=j-4 


Adaptations 


Ce programme permet une approche de la notion de masse 
volumique avec un liquide simple : l'eau. 


Pour des enfants plus grands (6° et 5° de collège) il serait 
intéressant de remplir le cube avec d'autres liquides (huile, eau 
de mer, etc.) en indiquant la masse volumique de ce liquide. 


Le joueur devrait alors effectuer un calcul supplémentaire (et 
même une conversion si la masse volumique est affichée en 
kg/dm*) avant de peser le cube. 
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Programme Masse et volume 


Dessin du cube 


Tirage au sort 


du côté du cube 









du volume. Réponse 





Calcul de l'aire 


d'une face 





Message 


d'erreur 







du volume. Réponse 





Message d'erreur 
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Poids trop 


élevé 


Organigramme 





Définition des 
dessins des plateaux 
de la balance 


Affichage 
de la balance 


Dessin des poids 


Réponse 
(manette de jeux) 













Définition du 
poids choisi 


Nouvelle définition 
du dessin du plateau 
de gauche 


Nouvel affichage 
de la balance 










Test de PD 
(total des poids 
utilisés) 


Poids exact 





Poids 


insuffisant 
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14 REM onmee ates cites meme 0000 svune té cbtee aote cmmme oneee otete oneee cou oteee cèbee ee oies ooeee annee oo come ones oo 


20 REM + MASSE ET VOLUME 
SO NEM + D.Nielsen mov BE --- 
40 REM -- Augustin fev 86 ---- 






5 (FA F* FE M à ve v000 ee mnt 1e moe nee ses nv00 auvue are ouvee aue a00 onu nom 006 me ont ment 

60 ON BREAK GOE Se 1060 

7 a Ft FE M 0008 vove r000 008 aura 0000 voue esies ones unes 0e 00002 conee ontne oanee opvee oemet ont oem eee aomee ones mate té aobeé oëtee moe tee 
30 REM + radü le presentation 


I Q F4 E M ouvm v0000 come cuve oem orne emo aerae cuome caves oem ane entente 008 0000 eve anvue vmmes ounne noue one vom nano musee ooate aan ooout one one onto ones 

100 MODE 1L:FAFER QuFEN 12CLS 

110 KANDOMIZE TIME/1000 

120 massefeCHRE# (145) +CHRE CLASH) +CHRE (145) 

120 LOCATE 10,S:FRINT "MASSE ET VOLUME" 

140 LOCATE 2,8:FRINT "Tu vas devoir calculer", 
M le volume d'un cube,"," sa masse rempli d'ea 
u'"," puis verifier cette masse"," sur une bala 
nee! 

150 LOCATE 2,24:FRINT "AFFUIE SUR UNE TOUCHE F 
OUR CONTINUER" 

160 iF=INEEV#:IF 1#e"" THEN 160 

17@ CLS 

1 63 Q KR E M ee sun con 0080 0000 0000 00008 onu 0000 even 05000 00000 00006 00000 EU 06000 00000 00088 0e nue 10006 ajons o 0000S bnntt ones anvee onto annee env ones 

190 REM -% Module dessin du cube 

200 REM 0000 au san 0006 mens ut 006 mnnde 0006 ste omnee sème 0600 mans mia 0006 0004 0806 none 0000 006 mme s00e tua 008 oops at 2008 eme some ones 

210 FLOT 200,:00,1 

220 DRAW 3:00,:00,1 

230 DRAW :00,200,1 

248 DRAW 200,200.1 

25Q DRAW 200,5:00,1 

2640 DRAW 250,:50,1 

270 DRAW 350,2750,1 

280 DRAW 5:00,:00,1 

290 PLOT 350,2350,1i 

300 DRAW 2350,250,1 

310 DKAW :00,200,1 

z We A KR E M 006 mans 43260 ste inuus 00608 ant in de anis 0306 0600 at obumt 00406 0006 A asus 0e 00e mue m8 deco sub 66e ous 0006 çéns nm vo. oeves 

3310 REM -* Module volume du cube 

LA 4 Q F E M wire toute sat vies mue de06e capte oénes cuets comes ob emmené ée 008 does 0010 ete eut capes eme be one amv oi mn ets dunes intacte 

350 cÆINT(RND#10)+i 

260 LOCATE 1,16: FRINT "Le cote de ce cube mesu 
re ses%om 

37Q INFUT "Quel est son volume, en cm "ivol 
280 IF vol=cxkcxc THEN 550 

390 FRINT "Non, ce n'est pas cela" 

ADQ ENT 2,#771,20,=789,20,=71,20,=0,0:FOK ii TO 
: SOUND 1,0,100,15,,22NEXT à 

410 FON ii TO SQOG:NEXT ji 
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4 ENT 2,=71,20,=789,20,=71,20,"70,0:FOR ii TO 
Er: SOUND 1,0,100,15,,2:NEXT i 

4AïQ FOR islé TO 2S:LOCATE L',isFRINT SFACE# (59) 
INEXT i 

440 LOCATE 1,16:FRINT "Four calculer le volume 
d'un cube,'","il faut chercher l'aire","d'unme 

de ces faces! 

450 FARINT "Combien fait s'icy"ualscite !"s 

460 INFUT sur 

47Q IF suri:cxc THEN FRINT "Faux, recommence'!s 

GOTO 410@ 

4890 FOR ii TO ZSOB:NEXT ji 

49Q ENT 2,#71,20,789,20,771,20,"0,@:FOR ii TO 
4 SOUND 1,0,100,15,,21NEXT à 

500 FOR irlié TO 2S:LOCATE L',is PRINT SFACE# (239) 
sNEXT à 

910 LOCATE 1,16:PFRINT "Bien ! maintenant, pour 
trouver !"!,'"son volume, il faut multiplier", ,'ce 

tte aire par la hauteur du cube" 

J20 PRINT "c'est a dire'";surs"a"sc 

930 INFUT "Cela fait combien ";volume 

940 IF volume=zsurxec THEN vol=zvolume ELSE PRINT 
"Faux, recommence!":G0TO 480 

330 FRINT "Bravo 

960 LOCATE 2,24:FRINT "Appuie sur une touche p 

our continuer" 

370 iF=INFEVESSIF ifeU" THEN 570 ELSE CLS 

380 REM see ve ae eo ae ee ee me eo 

390 REM -* Module recherche du poids 

6 a (#4) FX E M 03000 auee s0008 vente sa60e ones 00600 onu eee sotnt 6000 onvee 10600 outee 06008 tete 00008 +006 sous otd0e onu 6000 ovuee 0008 done 00000 ane 0400 mens a1one oueen 

810 triéihe-1é:poids=0 

620 GOSUR 1140 

63Q LOCATE 1,16: FRINT "Le cube est rempli d'ea 

u'!','"Tu dois trouver sa masse" 

640 FKRINT "Four la trouver, CU vas peser Ce cu 

b € "1 

450 FRINT "Voici les poids dont tu disposes" 


66Q FEN 3 

670 FOR i=i TO 8 

680 LOCATE 4%1i,22:FRINT massef 

690 LOCATE 4xi ,2%: PRINT massef 

780 NEXT :i 

71Q@ FEN 1 

720 LOCATE 4,21:FRINT "500 200 100 SQ 20 10 
5 i "1 


750 FOR i=si TO 4SOB:NEXT ji 
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740 FOR i=ié6 TQ 2Q:LOCATE 1,1:PRINT SFACE#(:9) 
INEXT ji 

750 LOCATE 1,16:FRINT "'Designe avec le curseur 
le poids" 

760 FRINT 'Attention, tu ne pourras pas enleve 

r'','"de poids de la balance" 


77Q j#=5 

780 LOCATE S,24:FRINT CHR (24) 

790 1FeINFEV#:IF i#e"" THEN 790 

800 IF if<s "it" AND ifss"Q" AND its" " THEN S0Q 


UND 1,400,20,1S:GOT0 790 
810 LOCATE j,24:FRINT " " 


820 IF it=" " THEN 890 
830 IF if="i" THEN j=j+4 ELSE j=j-4 
840 IF j=1 THEN j=33 


850 IF j=57 THEN jxS 

86@ SOUND 1,100,18,15 

87Q LOCATE j,24:FRINT CHR#(2%4) 

88Q GOTO 790 

890 poids=poids-500% (j#5) -200%x(j#9)-100%x(Cjx14) 
5% (jx17)-20% (jm21) 10% (jm 28) Ex (jme) (jai 

900 SOUND 1,100,20Q,1$ 

910 FOR ix1i TO 19:LOCATE S,i:FRINT SPFACE# (39): 
NEXT ji 

920 IF poids=evol THEN tæQih:0 

930 IF poidssvol THEN t=-16:h#16 

940 GOSUR 1140 

950 IF poids:vol THEN 1070 

96Q IF poids=vol THEN 990 

970 LOCATE 1,16:PKRINT "Il faut encore ajouter 

des poids" 

98Q GOTO 7:30 

9%0Q LOCATE 1,16:FRINT "Bravo 

1000 FHRINT "1 cm3 d'eau pese 1 gramme donc",vo 
li'coms pese"siiF volii THEN FRINT "nes 

1010 FRINT vols'"gramme'"3:IF volïi THEN PRINT " 
s" 

1020 FOR ii TO 6QDBB:NEXT ài 

10:G CLS 

1040 INFUT "Un autre jeu ( o / n ) "schoix#ich 
OiHFEUPPERS (cCchoix#) 

1050 IF choix#="Q" THEN 170 

1060 CLS:FRINT "Au revoir: END 

107Q LOCATE 1,16:FRINT "C'est trop !" 

1080 FRINT "Kecommence" 

1090 FOR iri TO SOBG:NEXT i 

1100 CLS:GOTO 410 
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LÉID'REM rennes een to none 


1120 REM -> 


1130 REM “meme em emmmmnn se 


1140 FLOT 1 
1150 FLOT 3 
1160 FLOT 2 
1170 FLOT 4 
1180 DRAW ? 
1190 FLOT 3 
1200 FEN 3 

1210 LOCATE 
1220 LOCATE 
assef 

1230 LOCATE 
aS8e* 

1240 LOCATE 
1250 LOCATE 
asse* 

1260 FEN 1 

1270 LOCATE 
###'!:poids 

1280 RETURN 


1:DRAWR +100,0,1 
1:DRAWR +130,0,1 
1:DRAWR @,-25,1 

15,255-h,1:DRAWR 0@,-25,1 

0U,228-t,1 

00,2:0,1:DRAWR 0,-25,1 


= = 


12,8+(t=-16)-(t=16): PRINT 
24,7+(h=-16)-(hx16):FRINT 


24,8+(h=-16)-(h=16) : FRINT 
12,9+(te-16)-(te16) : PRINT 
24,9+(h=-16)-(hx#16) : FRINT 


29,8+(h=-16)-(h=16) : FRINT 


masse*f 
massef+m 


massef+m 
masse 


masse+t+m 


USING "# 


KIM NOMBRES 


Thème 
Sur le principe du jeu de Kim, reconnaissance d'un nombre 


qui a été enlevé dans une liste affichée. 


Niveau 


Ce jeu est présenté en trois versions : 


- facile : à partir de 6 ans. 

- moyen : à partir de 8 ans. 

— difficile : essayez ce programme vous-même et vous 
verrez | 


Intérêt pédagogique 
Connaissances 


— lecture de nombres ; 
— classement de nombres. 


Savoir-faire 


— mémoire, et particulièrement mémoire visuelle. 
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Déroulement 


Après une présentation du jeu, une série de nombres tirés au 
sort s'affiche d'une manière irrégulière sur l'écran, ponctuée 
par une courte séquence musicale. 


Puis, lorsque le joueur a suffisamment lu ces nombres, 
AMSTRAD CPC retire un nombre et inscrit de nouveau les autres. 
Le joueur doit retrouver le nombre disparu. Ensuite une nou- 
velle série, plus courte, apparaît. et cela jusqu'à ce qu'il n'y ait 
plus que quatre nombres dans la série. 


Comme le jeu de Kim, ce jeu est évidemment plus facile à la 
fin qu'au début. 


Le listing de ce programme étant relativement court, trois 
adaptations différentes vous sont proposées afin de vous aider 
à créer vos propres adaptations d’autres programmes. 


e 1° version : difficile 


20 nombres tirés au sort entre 1 et 50. Dans la 2° liste, les 
nombres ne sont pas présentés dans le même ordre. 9 jeux. 


e 2° version : moyen 


14 nombres tirés au sort entre 1 et 10. Nombres présentés 
aussi dans un ordre différent la 2° fois. 6 jeux. 


e 3° version : facile 


10 nombres tirés au sort entre 1 et 10. Les nombres sont, les 
deux fois, dans le même ordre. 4 jeux. 


Commentaires 


90 à 180 Initialisation et présentation du jeu. 


220 à 310 Première séquence. 
Ligne 240 : Un nombre est tiré au sort dans 
un encadrement différent selon le niveau. 
Ligne 250 : La variable aléatoire X inscrit le 
nombre sur l'écran à une place chaque fois dif- 
férente. 


350 à 410 


450 à 470 


480 à 490 


500 à 510 
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Lignes 260 à 270 : Pour chaque nombre, une 
fenêtre est déterminée sur 20 colonnes de large 
et 2 (ou 4 version 3) de haut. Le nombre s'ins- 
crira dans cette fenêtre à une place déterminée 
par X. Ce qui donne une impression d'affichage 
en désordre, sans avoir le risque de faire effacer 
un nombre par un autre. 

Sur la moitié gauche de l'écran, vont s'inscrire 
les 10 (ou 7 ou 5) premiers nombres, puis les 
suivants sur l’autre moitié. 

Lignes 290 à 310 : C'est le joueur qui décide 
du moment où l'on passe à la suite. 


Affichage de la liste moins un nombre. 

Ligne 360 : Le nombre à retirer est tiré au sort. 
Pour les versions difficile et moyen, la place des 
nombres est modifiée : l'affichage commence 
par le bas de l'écran à droite. 

Dans la version facile, les nombres sont af- 
fichés dans le même ordre, mais à une place 
différente à chaque ligne. 


Réponse - Test de la réponse. 
Affichage bonne réponse, en cas d'erreur. 
Affichage « gagné ». 


Test suite de jeu en fonction du nombre de 
chiffres (N). 


Affichage du score et fin de jeu. 


Particularités techniques 


La séquence aléatoire n'est pas initialisée, elle est laissée au 
bon plaisir de l'AMSTRAD CPC. 


Dans la première séquence, chaque nombre tiré au sort est 
affecté d'un numéro d'ordre Al), ce qui permet de l'afficher de 
nouveau dans la deuxième séquence (le nombre retiré est rem- 
placé par « ? », ligne 400). 


Modifications 


Plusieurs variables peuvent être changées afin de transfor- 
mer ce jeu ou l'adapter à des niveaux intermédiaires : 
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— N — quantité de nombres à afficher au départ ; 

— nombre de jeux : ici N=N—2 qui enlève deux nombres à 
chaque jeu donne 4 jeux (facile), 6 jeux (moyen), et 9 jeux 
(difficile). 


On peut envisager aussi de donner une deuxième chance de 
réponse en cas d'erreur. 


Il est aussi possible de faire disparaître deux nombres (au lieu 
d'un) dans la séquence tronquée et de n’en demander qu'un 
seul, sur les deux, comme réponse. 


Des jeunes enfants (version facile) peuvent être gênés par 
l'affichage du même nombre plusieurs fois (ligne 240 : Al) est 
déterminé par RND). Si vous voulez éviter cette répétition, vous 
pouvez ajouter entre les lignes 240 et 250 un petit programme 
qui va comparer le nombre Al) à ceux déjà sortis (voir le pro- 
gramme « Construction de phrases »). 


Adaptations 


Chacune des trois adaptations présentées peut être l'objet 
d'autres transformations. Par exemple, vous pouvez garder, 
pour la deuxième séquence, la même place pour chaque nom- 
bre en affectant à la variable X l'indice (1) dans la première sé- 
quence. 


C'est à vous, en fonction du public à qui vous destinez ce 
programme, de l'adapter en conséquence. 
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Programme Kim facile 
Programme Kim moyen 
Programme Kim difficile 














Explication 
du jeu 


Tirage au sort 
et affichage 
des nombres de 
la 1" séquence 


Tirage au sort 
du nombre 
qui disparaît 





Affichage des 
autres nombres 





Entrée 
de la réponse 
du joueur 





Affichage de 
la bonne réponse 









N=N-2 
(quantité de nombres) 
N>2 


Organigramme 
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LOU -RERT, rer nn eie ins ien nr Reis 

20 REM -- KIM NOMBRES FACILE -- 

20 REM --- D.Nielsen nov 83 --- 

40 REM --- Augustin jan 86 --- 

CU MEL PMR rene 

LD: REF sn ae ne ne Ge em 
70 REM -> Module presentation 

CURE M. ‘ace een pm en re 


9Q DIM a(i4):n=1@:br=@ 

100 MODE 1:FAFER 13:CLS:FEN Q 

110 LOCATE 12,S:PRINT "JEU DE KIM'" 

120 LOCATE 1,8:PRINT "TU vas voir des nombres 
s'inscrire sur" 

130 FRINT " l'ecran, regarde les bien'":FRINT 
140 FRINT "Ensuite les nombres vont changer de 
MIFRINT'" place et un d'entre eux va disparaitr 
e'! 

150 FRINT:PRINT "A toi de le reconnaitre" 

160 LOCATE 1,22:PRINT "Quand tu seras pret a j 
ouer ! 

170 FRINT "Appuie sur une touche" 


180 1F=INKEY#:IF i$f="" THEN 180 

190 REM ee eee ae ee a 
200 REM -; Premiere sequence 

210: REM'ssssessesesmemeseeRess esse men 
220 CLS 


250 FOR i=i TOn 

240 a(i)=INT (RND#9) +1 

250 x=INT(RND#15) +1 

260 IF i{=5 THEN LOCATE x,i*4 ELSE LOCATE «+18 
, (i-5) #4 

270 FRINT ati) 

280 NEXT i 

290 LOCATE 4,23:FRINT "QUAND TU AURAS BIEN LU 
CES NOMBRES" 

200 LOCATE 10,24:FRINT "AFFUIE SUR UNE TOUCHE" 


F1Q i$=INKEYS:IF i$="" THEN 310 

Be. MEME. ion 2 dé me pes gone mn en nn ne em 
330 REM -5 Disparition d'un nombre 

TAQ REM eee eee ae ee 
350 CLS 


360 f=INT (RND#x (n—1) )+1 

37Q@ FOR i=i TO n 

380 X=INT(RND*#14)+3 

290 IF if=5 THEN LOCATE x,i%#4 ELSE LOCATE «+18 
s (i—S) #4 

400 IF i=F THEN PRINT "?" ELSE FRINT ai) 

41 NEXT ji 

ALONREM -srrrennRssesessseneenenmenmmnesse 
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450 REM -; module reponse 

4AQ REM ee ce ae ae 

45Q LOCATE 1,23: INPUT M"MQUEL NOMBRE À DISFARU " 
sTep 

4860 IF rep=satf) THEN FRINT "BRAVO TU ÀS GAGNE" 
sbrebr+i ELSE FRINT "NON, C'ETAIT';a(f) 

47Q FOR i=i TO 2@O0:NEXT ji 

48Q n=n--2 

49Q IF ni+:2 THEN 220 

500 CLS:LOCATE 12,S:PRINT "C'est termine'!":LOCA 
TE 5,72FRINT "TU as trouve'";br:"nombre(s) cach 
es! 

310 LOCATE 1,24:END 


LON PEN EEE en ne 

20 REM. == KIM NOMBRES MOYEN : == 

30 REM --- D.Nielsen nov 85 --- 

40 REM --- Augustin jan 86 —--- 
ee 

OUR EPT. eee one es par a es ee eu em mi aa es 
70 REM -+ Module presentation 

0: RENE RES a Rte ne ee eee es 


9Q DIM a(i4)sn=1i4:br=Q 

100 MODE 1:FAPER 13:CLS:FEN © 

110 LOCATE 12,S:PKINT "JEU DE KHIM'" 

120 LOCATE 1,8:FRINT "Tu vas voir des nombres 
s'inscrire sur" 

130 FRINT " l'ecran, regarde les bien":FRINT 
140 PRINT "Ensuite les nombres vont changer de 
MsPRINT'" place et un d'entre eux va disparaitr 
e!! 

150 FRINT:PRINT "A toi de le reconnaitre" 

160 LOCATE 1,22:PFRINT "Quand tu seras pret a j 
ouer " 

17Q FRINT "'Appuie sur une touche" 


180 iF=INMEVS:IF i#e"" THEN 180 

190 REM me eve murs n066e cos muse s006 cons ou 2006 sue mme 06006 me nas mue 20066 co one moe mé0é mme son ns ou oo omme 00000 0006 ours 
200 REM -+ Fremiere sequence 

DLD REM ses eee dead de cie Be ee DES de Se 
220 CLS 


2%Q FOR i=1 TO n 

240 a(i)=INT (RND#20) +1 

250 x=INT(RND#15) +2 

260 IF i£=7 THEN LOCATE x,ix? ELSE LOCATE x+18 
,(i-7) #2 

270 PRINT ati) 

280 NEXT i 
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290 LOCATE 4,23:FRINT "OUSND TU AURAS BIEN LU 

CES NOMBRES" 

300 LOCATE 10,24:FRINT "AFFUTE SUR UNE TOUCHE" 
F1Q 1$=INEEYS#:IF i1#="" THEN 310 

ar | REM we cts ou 0006 tome 1000 tue moe mens mé 00008 ans 00000 0000 nets anus 00008 0000 onto name 00000 00e tous 0000 eve mur 0008 sets moe 008 ont 

330 REM -% Disparition d'un nombre 

540 REM me um s000 mate me eme see ue c000 ons one 000 eme env 0006 0e ose mme 2000 m6 mom me annee a000 ot onu nee oûes man 2008 

250 CLS 

260 f=INT (RNDX (n—-1))+1 

370 FOR isi TO n 

380 x=INT (RNDx14) +35 

290 IF iï=7 THEN LOCATE x+18,16-1#2 ELSE LOCAT 
E x,16—(i-7)%2 

400 IF i=F THEN FRINT "9" ELSE FRINT a(i) 

41Q NEXT ji 

QUO REM eee ee nee ve ee ane a et se 

450 KEM -> module reponse 

AAQ REM ———0"— vue oo one me on one ne one on one on a oo a 

450 LOCATE 1,23: INPUT MQUEL NOMBRE À DISPFARU " 
rep 

460 IF repza(f) THEN FRINT "BRAVO TU AS GAGNE" 
sbrebr+1i ELSE FRINT "NON, C'ETAIT'"';a(f) 

470 FOR i=i TO 2ZOGB:NEXT i 

480 nen-2 

490 IF ni? THEN 220 

500 CLS:LOCATE 12,S:FRINT "C'est termine!":LOCA 
TE 5,7:FRINT "Tu as trouve!s;brs!"nombre(s) cach 
es! 

910 LOCATE 1,24:END 


1Q REM 
20 REM -- KIM NOMBRES DIFFICILE -- 


30 REM ---- D.Nielsen nov 835 ---- 
40 REM ---- Augustin jan 86 ---—- 
50 REM mme one mue on co ne as am un as 


9: REM === nee pie 2 on ed D me ns 

9Q DIM a(2@):in=20:br=0@ 

100 MODE 1:FAPFER 13:CLS:FEN @ 

11Q LOCATE 12,S5:PRINT "JEU DE KIM" 

120 LOCATE 1,8:PFRINT "TU vas voir des nombres 
s'inscrire sur" 

150 FRINT " l'ecran, regarde les bien":FRINT 
140 FRINT "Ensuite les nombres vont changer de 
Ms FRINT'" place et un d'entre eux va disparaitr 
e' 
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150 FRINT:PFRINT MA toi de le reconnaitre" 
16 LOCATE 1,22:PRINT "Quand tu seras pret a j 
ouer 
170 PRINT "Appuie sur une touche" 
18Q 1#=INÉEV#:IF i1#r"" THEN 180 
190 REM 0066 vie anne noté sie 03086 note ent 0200 ue on on. D606 add antan ‘ouate de 06 nuie mob 606 ten cmd Gode s0e 006 avis 006 tue 6 0060 
200 REM -5 Premiere sequence 
210 REM 060 tes mate ste ht 1300 sb0e be 2080 bb mn 2000 té ons 0000 900 tés monte 0 0006 0e mnt oué anne 00 one me SN mms 608 ae 
220 CLS 
230 FOR ii TO n 
240 a (i)=INT (RNDXxS50) +1 
250 x=INT(RND#14)+5 
260 IF itr1Q THEN LOCATE x,ix2 ELSE LOCATE x+1 
8,(i-—-1@)x? 
27Q FRINT a(i) 
280 NEXT ji 
240 LOCATE 4,23:PRINT MOUAND TU AURAS BIEN LU 
CES NOMBRES" 
300 LOCATE 10,24: FRINT "AFFUIE SUR UNE TOUCHE" 
T0 LÉeINÉEVS:IF 14e" THEN 310 
20 REM outte 10058 ênees mes ets Mis cuves ont mis C0 Cove omuet MS 6e eu es aioee bin ésene éme dnove ee éd ete nude ouime ouves eus nes omis aies 
33 REM -% Disparition d'un nombre 
540 REM wutte sogen cine 00008 22008 0340 onto 09088 sente dome ent ape 0060 en000 10000. 000 00000 Goabe anale eee 00e nee one 06e Gene 0600 DEN enuee mens a008e ent 
350 CLS 
360 $=INT C(RND% (n-1))+1 
370 FOR isi TO n 
3260 x INT (RND%14) +75 
390 IF ifes THEN LOCATE x+18,1@+ix2 
ADO IF i+S5 AND i4+1Q THEN LOCATE x ,22-i%% 
41@ IF es AND i£=15 THEN LOCATE x,42-i1%7 
420 IF 115 THEN LOCATE x+18,22-(i- 10) #2 
4TQ IF ÎF THEN PRINT "9" ELSE FRINT a(i) 
448 NEXT i 
AS Q REM nets endesns ae a a nn 2e ee D ep es 
46Q REM -*: module reponse 
470 REM 00 vote sève c088. sens cntee st ont 0889 0080 soie 20e opus ehbes 00008 bee eve 00 0000 0000) er0ue name nue 0000 30000 0086 00600 03 a 
48Q LOCATE 1,23: INFUT "QUEL NOMBRE À DISFARKU " 
"EP 
49Q IF repra(f) THEN FRINT "BRAVO TU AS GAGNE" 
sbrebr+l ELSE FRINT "NON, C'ETAIT';aCf) 
500 FOR i=i TO ZOGQ:NEXT ji 
910 nen-2 
920 IF n£:2 THEN 220 
330 CLS:LOCATE 12,S:PRINT "C'est termine!":LOCA 
TE S,73PRINT "TU as trouve"i;br;s"nombre(s) cach 
ws! 
348 LOCATE 1,24:END 





PETIT CAHIER 
DE VACANCES 
SUR AMSTRAD 


Tu as envie de jouer avec ton micro et de voir situ 
n'as pas complètement oublié l'école ? Ouvre vite 
ton petit cahier de vacances pour y découvrir 10 
jeux. Ces dix sujets de calcul et de français t'aide- 
ront à réviser ces deux matières en t'amusant. Tu 
verras, les programmes sont courts et les résultats 
ne se font pas attendre... 
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VOUS AVEZ DIT 
DIVISION EUCLIDIENNE ? 





ww 
/. vas rechercher le quotient en- 
tier et le reste d'une division. 


Comment vas-tu t'y prendre ? 


L'ordinateur fait toutes les opérations que tu lui de- 
mandes. Mais sa précision de calcul peut parfois être un 
défaut : si tu poses une division, il recherchera jusqu'à 6 
chiffres décimaux.…. 
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« Combien de livres à 8 F puis-je acheter avec 257 francs ? 
Combien me restera-t-il ? » Ce problème, il ne sait pas le 
résoudre tout seul... || sait seulement rechercher le quo- 
tient entier et calculer le reste. 


Voici la solution que je te propose. 


Tu entres le dividende (nombre à diviser) sous le nom de 
variable N, et le diviseur sous le nom de D. 


L'opérateur \ donne, ligne 40, le quotient entier. MOD ren- 
voie, à la ligne 50, le reste de la division de N par D. 

Tu aurais pu calculer ces deux valeurs autrement : 

Q = INT(N/D) (partie entière du quotient) 

R = N — (Q * D) (c'est ce que l'on fait, dans l'opération, 
pour calculer le reste). 


9 REM ---- QUOTIENT ENTIER --- 

1Q MODE 1:CLS 

20 INFUT "ENTREZ LE NOMBRE À DIVISER "3N 
3Q INFUT "ENTREZ LE DIVISEUR ";D 

40 G=N\D 


JQ R=N MOD D 


6@ FKRINT "LE QUOTIENT ENTIER DE'sNSs'"DIVISE FAK 
“a Ds "EST'":0 
70 FRINT "LE RESTE EST's:K 





Que vois-tu à l'écran ? 


LIUISER 7 36 


A 
R ©% 
R E 36 DIUISE PAR 35 


DL] 
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HISTOIRES DE MULTIPLES 
ET DE DIVISEURS 





FA 
Î. vas rechercher tous les divi- 
seurs d'un nombre entré au 


clavier. 


Comment vas-tu t'y prendre ? 


Un nombre | est diviseur d'un nombre A (ou A est multiple 
de |} si leur quotient est un nombre entier, donc si le reste 


de la division euclidienne de A par l'est O. 
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Voici la solution que je te propose : 


La variable | va prendre toutes les valeurs de 1 à A (boucle 
de la ligne 30). 

Dans la ligne 40, l'opérateur MOD donne le reste de la 
division euclidienne de A par I. 

Si ce reste est nul (R=0), on peut afficher que A est mul- 
tiple de | (ou que | est un diviseur de A). 


Attention : ton Amstrad n'acceptera pas de nombre su- 
périeur à 32/67, et au-delà de 1000, même s'il calcule 
beaucoup plus vite que toi, cela devient long, long... 


9 REM ---- DIVISEURS D'UN NOMERE -—--- 
1Q MODE 1:CLS 

20 INFUT MDONNE UN NOMBRE ‘34 

Z2Q FOR Iæl TO À 


4Q K=A MOD I 


90 IF ReQ THEN PRINT A3"EST MULTIFLE DE'"SsT 
6@ NEXT I 





Que vois-tu à l'écran ? 


D 


Z 


rittitaieirit 
UtAtAUA 
DETTE TETE on 
Z 
cceccez 
PPCOEEO 
eee lie) X 
eme 
a-helaelgslas uote 
POP tr 
ntitatiir 


2 


(dy 


Ne 
Quinn z 
ZIXIII 
COSCES 
a a LS 
LEO Ps CT Gite 
(alé é pl 
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AU COMMENCEMENT 
ETAIENT 
LES NOMBRES PREMIERS 





PA 1 
Î: vas rechercher tous les nom- 
bres premiers entre 1 et 100. 


Comment vas-tu t'y prendre ? 


Un nombre | est un nombre premier s'il n'est divisible que 
par 1 et lui-même. Il faut donc rechercher tous les nom- 
bres qui n'ont pas d'autres diviseurs (aide-toi du program- 
me précédent). 
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Voici la solution que je te propose : 


Le programme se réalise entre deux boucles : 


1° pour | = 1 à 100 (le programme va tester chaque nom- 
bre) 


2° pour chaque valeur de |, tu cherches ses diviseurs (re- 
garde le programme précédent) et tu comptabilises le 
nombre de diviseurs dans la variable DIVIS. 


Si DIVIS=2, c'est que ce nombre n'a que deux diviseurs 
(1 et lui-même). Il s'agit donc d'un nombre premier. 


Tu pourrais augmenter la valeur maximum dans la boucle 
de la ligne 20 (de 1 à 1000, par exemple), mais cela devient 
très long. Alors, pour gagner du temps, tu peux aussi 
éliminer un nombre dès qu'il a 3 diviseurs, sans les re- 
chercher tous, en ajoutant : 


65 IF DIVIS>2 THEN 90 


5 REM --- NOMBRES FPREMIERS 
10 MODE 1:CLS 

20 FOR Ii TO 100 

#0 DIVIS=O 

40 FOR E=i TO I 


JQ K=I MOD EF 

60 IF RQ THEN DIVIS#DIVIS+1 

7Q NEXT EF 

80 IF DIVIS#2 THEN FRINT I3'"EST UN NOMBRE 
LEK" 

9Q NEXT I 
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Que vois-tu à l'écran ? 


RL Es sn es DR De L I e Re 
ER ou pp 0 na nb LE de ed ue 
Fe} En] PP tt et, Po mp 
MrHNELELZLZLZLELEZLZIZLELELZZILE 
ELLE nn nu pe ob mt nee aa no LE ne 
Pa du EE DR LR TU I RER 
CA RARE RARE 

moe dise suis ein 


DST TER PA RRRAMRRRERS 
ZZZZZZZLZZZZLZIZEIZZZZZ 
PTE nn nan 
Ft Et Et Et Em Et Et Et Et Et Et En En Et Et Et Et Et Et 
Et Ent Ent Et GO GO LU CA CA A AL TAN IUT ET 
CU Q EE Con GC 


Rae 
en De QT CT) om m9 De CT Du en TA QT De 
QU CL) De qu on ee EU 9 69 9 LL) CO CO D De 0600 07 
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À PROPOS 
DE TRI DE NOMBRES 


ç 


M 
FN ; 


i— FA ELA 
* 2 
S Se 1: 





A7 
f' vas classer des nombres du 
plus grand au plus petit. 


Comment vas-tu t'y prendre ? 


Pour classer des nombres, plusieurs techniques sont pos- 
sibles. Je t'en propose deux, les plus simples (mais elles 
ne seraient pas les plus rapides s'il y avait beaucoup de 
nombres à trier). 
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1° — par élimination : y regardes tous les nombres. Tu 
prends le plus grand pour le mettre à part. Tu regardes 
ceux qui restent et tu recommences autant de fois qu'il y 
a de nombres à tirer. 


2° — par permutatlOn : {y regardes deux nombres qui se 
suivent dans la liste. S'il ne sont pas dans l'ordre correct, 
tu les changes de place entre eux. Tu recommences avec 
les autres nombres, jusqu'à ce que tous les nombres 
soient correctement classés. 


Cette fois-ci, je te propose deux solutions : 


— Partie commune (10 à 60) : 

Tu vas d'abord demander le nombre d'éléments à classer. 
Au fur et à mesure de leur entrée au clavier, les nombres 
sont mis en mémoire dans une variable indicée Al), | re- 
présentant le numéro d'entrée du nombre dans la liste. 


Attention : si tu veux classer des listes de plus de 10 
nombres, il te faudra auparavant dimensionner un tableau 
À en ajoutant : 

15 DIM A(30) par exemple, pour un maximum de 30 nom- 
bres. 


1'f solution 


— tri par élimination : tu recherches le plus grand des 
nombres de la liste et tu le gardes dans MAXI (lignes 90 à 
110), tu affiches ce nombre, puis tu l'élimines de la liste : 
AÎT) = 0. 


Cette recherche est effectuée autant de fois qu'il ya de 
nombres : boucle FOR 1 = 1 TO NB de la ligne 70 à la ligne 
130: 


202 | AMSTRAD A L'ÉCOLE 


D REM ---- TRI DE NOMBRES —---— 

19 MODE 1:CLS 

2Q INFUT "COMRIEN DE NOMBRES À CLASSER "3 NE 

20 FOR I=i TO NE 

4Q FRINT "NOMBRE No'"s ls: INFEUT ACT) 

30 NEXT I 

60 FRINT "VOICI LES NOMBRES DU FLUS GKAND', "AU 
PLUS FETIT" 


7Q FOR I=1 TO NE 

80 MAXI=Q:T=0Q 

90 FOR EH=1i TO NE 

100 IF ACH):MAXI THEN MAXI&A CH): TER 
110 NEXT EH. 

129 PRINT MAXL:A(T)=9 

1#0 NEXT I 





Que vois-tu à l'écran ? 


N DE NOMBRES À CLASSER 7? #8 


MHIXXIZIIIIZ 
Liab-lllelsleeelsfe) 
Di Us FU CO EN LOTO 


ee 


ES DU PLUS GRAND 


DCZZZZZLZZO 
MUBUBNNTE D O0 0000000 

Ch 02202077 
Le 5 
or 

Z 

© 
MO 
Le ADS DITS D DS D TC 


Z 
© 
4 
ZONE CO 


2° solution 


— tri par permutation : PERM est une variable de contrôle 
qui indique si l'ordinateur a fait une ou plusieurs permuta- 
tions (PERM = 1). 


Dans les lignes 80 à 100, tu compares chaque nombre à 
celui qui le précède : s'il est plus grand, tu les changes 
tous les deux de place {ligne 90). 
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S'il y a eu des permutations, tu recommences pour contrô- 
ler l'ordre (ligne 110). Si PERM = 0, c'est que tous les 
nombres sont dans le bon ordre, tu peux alors les afficher. 


Cette deuxième solution est plus rapide et permet ensuite 
de réutiliser les nombres triés dans un programme car ils 
sont, non seulement rangés dans le bon ordre sur l'écran, 
mais aussi dans la mémoire de l'ordinateur. 


D REM = TRI DE NOMBRES VERSION 2 —---— 

10 MODE 1:CLS 

20 INFUT "COMRIEN DE NOMBRES A CLASSER "3; NE 
30 FOK Iæi TO NE 

40 FRINT "NOMBRE Nos lys: INPUT ACT) 

JQ NEXT I 


6@ FRINT "VOICI LES NOMBRES DU FLUS GRAND", "AU 
PLUS PETIT" 
70 FERM=Q 


80 FOK I1=2 TO NE 
9Q IF ACLI)HACI-1) THEN RAI) 1 ACI)&ACI-1) 5 A CI 
LR: FERME] 

NEXT I 

IF FERME THEN 70 

FOR Iæl TO NE 

FRINT ACT) 

NEXT TI 





Que vois-tu à l'écran ? 


N DE NOMBRES À CLASSER 7? #8 
Ho 


(=) 


S DU PLUS GRAND 


DCZZ22222Z20 


OUR JDME SO OC 000000 
D co 

Z 

Ô 


Fe DS DOS DO D DC 


HO 


Z 
© 
m1 
pi Z CO IUT LOTO es 
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BUENOS AIRES 





U vas calculer automatiquement 

l'aire d'une surface géométrique 
simple (carré, rectangle, triangle, 
parallélogramme) 


Comment vas-tu t'y prendre ? 


Comme toi, Amstrad peut calculer l'aire d'une surface 
géométrique s'il sait de quelle surface il s’agit, s'il connaît 
la ou les dimensions utiles ainsi que la formule de calcul. 
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Voici la solution que je te propose : 


Ce programme est un peu plus compliqué que les précé- 
dents car j'ai voulu tenir compte des unités de mesure 
pour éviter de calculer une aire à partir de dimensions don- 
nées dans des unités différentes. 


9 REM ---- AIRES —---—- 
10 MODE 1:CLS 
20 FOR I=1 TO 4 
30 READ N#(I) ,D1#(I) ,D2#(1I) 
40 FRINT Is"... ."s;NE(I) 
9 NEXT I 
FRINT: INPUT UVOTRE CHOIX ":CH:IF CHi1i OR CH 
THEN 60 
FRINT "QUELLE EST LA MESURE DE "3;D1#(CH)3"( 
valeur + unite)'"s;:INPUT Mif$:MIi=VAL(Mi+#) 
8Q FOR Ix1 TO LENCMI#):N#=MIDS# (MIS, LI,1):1F Nt= 
CHR C2) THEN UNIL#=RIGHT#(MILS,LEN(MI#)-1) 
9Q NEXT I 
100 IF CH=i THEN 150 
110 FRINT "QUELLE EST LA MESURE DE "5D?2#(CH)3s" 
(valeur + unite)"3;:INFUT MR: MP= VAL (MD#) 
120 FOR Il TO LENC(MR#) :N£=MIDE (M2#, I, 1)21F N# 
RCHRE C2) THEN UNZÉ=RIGHTES (M2, LEN (M2#) 1) 
1240 NEXT I 
14Q IF UNIS<SUNZ# THEN FRINT "ATTENTION, UNITE 
S DIFFÉRENTES": GQTO 70 
150 ON CH GOSUR 200,210,220,270 
160 FRINT "LA SURFACE DE CE ";N#(CH)s;" EST'"':S; 
UNI; "2" 
17@ END 
200 SxM1xMi: RETURN 
210 SeMLxM2s: RETURN 
L20 S=eMIxM2/2: RETURN 
230 S=MixM2: RETURN 
200 DATA CARRE,SON COTE,SON COTE 
218 DATA KRECTANGLE,SA LONGUEUR,SA LARGEUR 
220 DATA TRIANGLE,SA HASE,SA HAUTEUR CORRESFON 
DANTE 
20 DATA FARALLELOGRAMME ,L'UN DES COTES,LA HAU 
TEUR CORRESFONDANTE 
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Les lignes 20 à 50 lisent en DATA les noms des figures, 
et le nom des deux dimensions utiles pour calculer leur 
aire (attention : pour le carré, on a écrit deux fois COTE 
pour éviter un décalage dans la lecture des DATA). 


La ligne 60 permet de choisir la figure. 


Les lignes 70 à 110 (70 seulement pour le carré) permet- 
tent d'entrer chaque dimension avec son nom d'unité : 
par exemple 35 CM. MT et M2 prendront les valeurs nu- 
mériques de ces dimensions. 


Les lignes 80, 90, 120, 130 et 140 contrôlent qu'il s’agit 
bien de la même unité : tu recherches le nom des unités 
à droite de M1$ et M2$ en te basant sur l'espace entre le 
nombre et cette unité. S'ils ne correspondent pas, il faut 
recommencer. 


La ligne 150 envoie, selon la figure à l'un des sous-pro- 
grammes 200 à 230 pour calculer l'aire. 


Il ne reste plus qu'à afficher ce résultat par la ligne 160. 


Tu peux adapter ce programme à d'autres calculs : 

— en ajoutant d'autres figures (et leurs mesures utiles) en 
DATA, ainsi que la formule de calcul. 

— pour calculer des périmètres, ou des volumes. 


Que vois-tu à l'écran ? 


Lu: da CARRE 
D di. à. RECTANGLE 
D. ss à se TRIANGLE 
Si à 0 PARALLELOGRAMME 
UOTRE CHOIX 7 3 
QUELLE EST LA MESURE DE SA BASE 
Cvualeur. + unite)?7 2 cm 
QUELLE EST LA MESLUR D 
SA HAUTEUR CORRESPONDANTE 
Cuvaleur + unite)}? 3 cm 
LA SURFACE DE CE TRIANGLE EST 3 cnme 
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LE PAUVRE PENDU 





A1 
[' va deviner et reconstituer un 
mot lettre par lettre 


Comment vas-tu t'y prendre ? 


C'est un des jeux les plus classiques qui soit ! De nom- 
breuses versions existent sur ordinateur avec des dessins 
de plus ou moins bon goût. 


Tu te contenteras de mettre au point le cœur du program- 
me, sans graphisme. 
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Au cours du jeu, il faut comparer la lettre proposée par le 
joueur à toutes les lettres du mot : une fonction sera alors 
très utile, c'est MIDS. 


Mais, attention, pour que le jeu tourne correctement, il 
faudra tenir compte du nombre de lettres fausses et de 
lettres exactes pour arrêter le jeu lorsque le mot est trouvé 
où qu'il y a trop de mauvaises réponses. 


Voici la solution que je te propose : 


Le mot à découvrir est enregistré dans les lignes 30 et 50. 


ILest pris, lettre à lettre, par l'instruction INKEY$, ce qui 
permet de ne pas l'afficher sur l'écran. Le caractère mo 
(blanc ou espace), indique que le mot est terminé. 


Les lignes 60 à 80 affichent autant d'étoiles qu'il y a de 
lettres dans le mot. 


Le jeu se déroule entre les lignes 90 et 180 : la lettre 
entrée par le joueur est comparée à chaque lettre du mot 
(ligne 130). Si elle correspond à une de ses lettres elle est 
affichée à sa place dans le mot, la variable All) prend la 
valeur 1 pour éviter que la même réponse ne soit prise en 
compte deux fois, le compteur BR enregistre le nombre 
de lettres trouvées et la variable REP prend la valeur 1 
(réponse exacte). T correspond au nombre de lettres iden- 
tiques. 


La ligne 150 affiche un message lorsque la lettre n'est pas 
dans le mot et compte le nombre de réponses fausses 
(RF). 


Les lignes 160 et 170 servent de test de fin de jeu : 160 
BR=L-T :le mot est trouvé. 
170RF = 10 : Dix réponses fausses, vous êtes pendu | 


Si tu veux conserver le réalisme du jeu, il ne te reste plus 
qu'à dessiner l'échafaud, le bourreau, et … le pendu ! 
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9 REM ---- LE FENDU ---- 

19 MODE 1:CLS 

20 FRINT "ENTREZ LE MOT À DECOUVRIR'","FUIS UN 
ESFACE POUR VALIDER LE MOT" 

30 IÉRINEEVS: LHSUPPERS CIHD 2: IF Iéz"" TMEN O0 
4Q IF Ife" " THEN 60 

90 MOT£=MOT#+L#s:Lel+1: GOTO T0 

60 FOR I=i TO L 

7Q LOCATE Ix2,5:PFARINT "x" 

92 NEXT I 


9 LOCATE 1,8:FRINT "TAFEZ UNE LETTRE!" :REF:#@Q 
100 If=INÉEVE#: LHEeUPPERS(I#):1F It=z'"" THEN 100 
11Q LOCATE 1,S:FRINT SFACE# (49) 


120 FOR I=i TO L 

150 IF Lé=MIDE(MOT#,I,1) AND A(i)æQ THEN LOCAT 
E TX, S: PRINT If: ACT)=1l: BR=BR+1: IF REF=1 THEN 

Eee 1e REF 1e Tell ELSE REF 

14Q NEXT I 

190 IF REFæQ THEN LOCATE 1,10+RF:FARINT Its" on 

est pas dans ce mot':RF=RF+i 

160 IF BKELeT THEN LOCATE 1,2%:FRINT "BRAVO ! 

MOT TRQUVE EN'3 BR+RE 3 "COUPS": END 

17Q IF KF=1Q THEN LOCATE 1,22: FRINT "TROF TAR 
D ! LE MOT ETAIT "3; MOT#:END 

188 GOTO 950 





Oùue vois-tu à l'écran / 


ENTREZ LE MOT 


A _DE 
PUIS UN ESPACE PoU 


20 


AUGUST IN 


n'est pas dans ce mot 
n'est pas dans ce mot 
n'est pas dans ce mot 
n'est pas dans ce mot 
n'est pas dans ce mot 


zm<on 


BRAUO ! MOT TROUUE EN 12 COUPS 
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LA PHRASE ACCORDÉON 


| 


PT PR 
D nt, # 
> 


— IS SSSSSS 
RARE 
RIT ST TSTS 
SR NN NTS 

TRRRRREQ 


SE 


ù 





eu pour 7 joueurs : chacun entre 
LL. un morceau de phrase, sans sa- 
voir ce que les autres ont écrit. 
La phrase complète est dévoilée 
fin de jeu. 


Comment vas-tu t'y prendre ? 


Ce programme, sur un thème cher aux surréalistes (le ca- 
davre exquis de la grammaire), ne doit pas poser de pro- 
blème de développement. || est basé sur la concaténation 
d'éléments de phrases (ce mot barbare signifie simple- 
ment « coller côte à côte »). 
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Mais, afin d'obtenir une phrase grammaticalement cor- 
recte, tu dois indiquer à chaque joueur le type d'élément 
qu'il devra ajouter (sujet, verbe, complément d'objet, etc.). 


Voici la solution que je te propose : 


S REM ----— LA FHRASE ACCOKDEON ---- 

18 MODE 1:CLS 

20 FOR I=i TO 7 

30 READ F#(I) 

40 CLS:FRINT "TU DOIS ECRIRE LE ";F#CIDDs" DE L 
A PHKAGSE" 

50 LINE INFUT "ENTRE TON TEXTE "3; ELEM# (1) 

60 FHE=PHS+CHRE C2) +ELEMS (I) 

7@ NEXT I 


80 CLS:LOCATE 1,5%:FRINT "VOICI LA FHRASE QUE V 
OÙUS AVEZ CONSTRUITE" 


90 FRINT FH 

100 END 

200 DATA COMPLEMENT CIRCONSTANCIEL DE LIEU 

#1 DATA COMFLEMENT CIRCONSTANCIEL. TENFS 
220 DATA SUJET (a la eme personne singulie 
r) 

2:50 DATA VERRE (a la eme personne 4 singulie 
r) 

240 DATA COMPLEMENT D'OBJET DIRECT 

250 DATA COMFLEMENT D'OBJET INDIKECT 

260 DATA COMFLEMENT CIRCONSTANCIEL DE 





Les lignes 20 à 70 lisent et affichent la définition du type 
d'élément à ajouter par le joueur. L'instruction CLS de la 
ligne 40 permet d'éviter que chaque joueur ne voie le texte 
de ses prédécesseurs. L'élément | est entré dans la ligne 
50 par LINEINPUT qui permet d'utiliser des virgules dans 
un élément. 
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La ligne 60 effectue cette fameuse concaténation, en 
ajoutant un espace entre chaque élément. 


La phrase complète est affichée par la ligne 90. 


Les types d'éléments sont inscrits en DATA. J'ai choisi 
une structure de phrase que tu peux évidemment modifier 
selon ton choix. 


Que vois-tu à l'écran ? 
DOIS ECRIRE LE 
COMPLÉMENT CÉRCONSTANCTEL DE LTEII 


D LA PHR E 
ENTRE TON TEXTE ? dans une salle 
sombre 
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PAR ORDRE ALPHABÉTIQUE 





CA 1 
' vas classer une liste de mots 
dans l'ordre alphabétique. 


Comment vas-tu t'y prendre ? 


Pour ton Amstrad, un mot est en fait formé de chiffres | 
Ce sont les codes “ASCII” de chaque lettre qu'il conserve 
en mémoire. Alors pour lui, classer des mots par ordre 
alphabétique ressemble beaucoup à trier des nombres, du 
plus petit à plus grand. Révise le programme de tri de 
nombres et tu trouveras vite la solution ! 
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Voici la solution que je te propose : 


Le programme de classement par ordre alphabétique res- 
semble en tout point à la deuxième version du programme 
de tri de nombres. Simplement, au lieu de comparer des 
variables “nombre”, tu compares des variables “chaîne 
alphabétique” et dans le sens inverse (afin d'obtenir un 
classement du plus petit au plus grand). 


Tu pourras réutiliser ce petit programme dans des carnets 
d'adresse, par exemple, car l'ordinateur va garder les mots 
en mémoire dans le bon ordre. 


S REM ---- ORDRE ALPHABETIQUE ----— 
MODE 1:CLS 
INPUT "COMBIEN DE MOT À CLASSER ":;NB 
FOR I=i TO NB 
PRINT "MOT No'";l3;:INPUT A$(I) 
NEXT I 
PRINT "VOICI LA LISTE DE MOTS","DANS L'ORDR 
E ALPHABETIQUE" 
70 FERM=Q 
80 FOR I=2 TO NB 
90 IF AS(I)<A#(I-1) THEN R$=A$(I):A#(1)=A#(I-1 
)1A$(I-1)=R$: PERM=1 
100 NEXT I 
110 IF PERM=1 THEN 70 
120 FOR I=i TO NE 
150 FRINT A#(I) 
14Q NEXT I 
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| 


Que vois-tu à l'écran ? 


& = 
= 3 
(y) Uib4 
(rl Etba 
Le ©Obl 
MZ pal 
ee € 


mn JO En mi 
Ann ZAR 
HMS Z JON 1 


CHA AI TUE 
“LR” 
ACID EES 
FA =" 
Hocuocooo ,] 


Z À 
Hi loi 
MAO HT 


MZZZAZZZZZA OO Zn 
= C0 Z GO 
EE EE Et Et EEE LUZ Ce EE 
OOCOOOOOCOLUSTE TT MIE 
VEZXEZEZE EC TA UT En 
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CODE SECRET 





CAT 
: vas transformer l'ordinateur en 
machine à coder et décoder des 
messages dans un langage secret. 


Comment vas-tu t'y prendre ? 


De nombreux programmes de codage existent. Certains 
sont très compliqués et destinés aux services secrets |. 
Nous limiterons notre ambition à un principe de codage 
simple : À chaque lettre de l'alphabet, correspond une 
autre lettre, en respectant toujours l'ordre alphabétique. 
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Par exemple, si tu remplaces À par K, tu remplaceras B 
par L, C par M, etc. Il suffit donc de connaître la lettre qui 
correspond à À pour chiffrer ou déchiffrer un message. 


C'est simple, mais parfois fastidiueux et l'ordinateur peut 
faire cela très vite | 


Voici la solution que je te propose : 


La ligne 20 enregistre la lettre qui correspond à À en clair. 


Dans la ligne 30, la variable CODE prend en compte la 
différence de place entre ces deux lettres. C'est ce qui va 
permettre le codage. 


Dans les lignes 40 à 60, le joueur choisit de coder, où au 
contraire de décoder un message. 


Le message est pris en compte lettre par lettre, dans A, 
ligne 80. B$ sera son correspondant codé, où décodé. S'il 
ne s'agit pas d'une lettre (espace, ponctuation...) B$ = A$ 
(ligne 110). (Attention il faut bien lire GOTO 150). 


Les lignes 120 et 130 vont définir B$ en fonction de CODE. 
B$ est ajouté à la phrase résultat PH$. 


Lorsque le joueur tape un point, c'est que le message est 
terminé. Tu affiches PHS (ligne 170). 


Ainsi, tu pourras communiquer seulement avec ceux que 
tu choisiras en leur donnant ton message codé, sa clé (la 
lettre de référence qui correspond à A) et .… le programme 
pour le décoder ! 
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S REM ---= CODE SECRET === 
10 MODE 1:CLS:FRINT "Quelle lettre remplace la 
lettre A" 
IF=INÉEY#:IF I$s"" THEN 20 
LE=UFFERSE (1$) : CODE=ASC(I#) -64 
FRINT:PRINT "CODAGE... ,1" 
PRINT "DECODAGE..,.,.2" 
INFUT "VOTRE CHOIX "3; CH 
FRINT MECRIVEZ VOTRE MESSAGE'","ET TAFEZ UN 
À LA FIN" 
8Q AF=INEEYS#:IF Af="" THEN 80 
9Q AF=UFFERS (AY): RER US PRINT A: 
10Q IF Af=".'" THEN 170 
110 
150 
120 IF CHel THEN RER+CODE:IF R390 THEN Kek-26 
120 IF CHE THEN R&R-CODE:IF R£6S THEN ReR+£6 
140 RÆFECHRE CH) 
150 PFHE=PHE+RE 
1640 GOTO 80 
170 FRINT:FRINT PH#: END 





Que vois-tu à l'écran ? 


Quelle lettre remplace la lettre ff 
CODAGE...... 1 

DECODAGE....2 

UOTRE CHOIX 7 1 

ECRIUEZ UOTRE MESSAGE 

VOTeT HU EXEMPLE DE, LODAGE 

MFZTZ LE VUOUDGCU UU TFURXU 


PETIT CAHIER DE VACANCES | 219 


MELI-MELO 


e— 


ENS HEC MERE 
7 NP APE es 





u Vas retrouver un mot dont l'or- 
dinateur aura mélangé les 
lettres. 


Comment vas-tu t'y prendre ? 


Tu l'as vu dans les programmes précédents, ton Amstrad 
est capable de décomposer un motenlettres et de jouer” 
avec ces lettres, c'est-à-dire de les changer de place entre 
elles. Mais toi, saurais-tu faire l'inverse ? 
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Comme il faut entrer un mot au début de jeu, je te propose 
de réaliser un jeu à deux, l'un contre l'autre, avec un score 
pour chacun. 


Voici la solution que je te propose : 


Le début du jeu ressemble à celui du PENDU puisqu'il faut 
entrer un mot. J'ai choisi le même principe, qui permet de 
ne pas afficher ce mot, mais chaque lettre est gardée en 
mémoire sous un nom de variable indicée I$(L), ce qui 
évite de décomposer ensuite le mot en lettres. 


Attention: si tu veux utiliser des mots de plus de 10 lettres, 
il faudra dimensionner un tableau 1$, en ajoutant : 


7 DIM 1$(20) par exemple 


La boucle de la ligne 10 à la ligne 270 permet de recom- 
mencer deux fois le jeu : chaque joueur change de rôle. 


Pour mélanger les lettres de MOTS, j'ai ici repris une rou- 
tine souvent utilisée dans les programmes de ce livre : tu 
tires au sort une des lettres (ligne 60), tu vérifies qu'elle 
n'est pas déjà sortie (lignes 80 à 100), puis tu l'affiches. 


La réponse du joueur est entrée dans la ligne 200. Si la 
réponse est exacte (ligne 220), le score du joueur tient 
compte du nombre de réponses fausses auparavant don- 
nées. 


Si Sa réponse est fausse, Amstrad l'affiche (même prin- 
cipe que dans le pendu). Après 8 réponses fausses, l'or- 
dinateur donne le bon mot. 


Tu peux prolonger le jeu en gardant les deux scores en 
mémoire : 

265 SC(JEU) = SCJEU) + 10 — RF 

et en ajoutant : 

280 GOTO 10 
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SJ REM: ee: MELIMELO = 

10 FOR JEUx1 TO Z:MODE 1: CLS: Let: MOT#s"" 

20 FRINT "ENTREZ LE MOT À DECOUVRIR'","FUIS UN 
ESFACE FOUR VALIDER LE MOT" 

30 TI$ CL) eUPFFERSE CINÉEVE#) 2 IF LÆ(L)="" THEN 30 EL 
SE IF LéÆ(CL)æ" U OTHEN Leæl-1:GOTO 50 

40 MOTERMOTE4+ TE CL.) 2 LeL+ls: GOTO FO 

0 CLS:FOR Izi TO L 

6 KL) INT CRNDXL.) +1 

7Q IF Ixi THEN 110 

80 FOR Jæl TO I 

YQ IF KOD)&K(J) THEN 60 

100 NEXT J 

119 LOCATE Tx®,5Ss PRINT I#CRCI)) 


1#Q NEXT I 


200 LOCATE 1,10:INEUT "TA REFONGE "3 REP#: REP# 
UFFERS (REF) 

210 LOCATE 1,10:FRINT GFACE®# (29) 

220 LOCATE 1,12+RF:IF REF#=MOT# THEN FRINT "ER 
AVO ! TU AS GAGNE"3;10-RF 3; "POINTS": GOTO 260 

220 PRINT "NON ! "sREP#:;" N'EST PAS LE EON MOT 
Me RFeRE +1 

240 IF RF£8 THEN 200 

250 FRINT "C'ÉTAIT "3: MOT# 

260 IF JEUx1 THEN LOCATE 1,23:FRINT "AFPFUIE SU 
R UNE TOUCHE" ,"FOUR CHANGER DE JOUEUR ":A##INE 
EY#eIF Af="" THEN 260 

270 NEXT JEU 





Que vois-tu à l'écran ? 


OTISANM 


NON ! MOISAN M'EST PAS LE BON MOT 
NOM ! MASIMO M'EST PAS LE BON MOT 
BRAUO ! TU ÀS GAGNE 8 POINTS 
APPUIE SUR UNE TOUCHE 

POUR CHANGER DE JOUEUR 


Conclusion 


Ces programmes ont tous été utilisés par des enfants d'âges 
et de niveaux scolaires différents. 


Ce travail a permis un certain nombre de constatations : 


— Les enfants ne considèrent pas cela comme une activité 
scolaire traditionnelle et prennent plaisir à travailler sur 
l'ordinateur. 


— Les programmes adaptés à l'école stimulent l'enfant, fa- 
vorisent une pédagogie de la réussite : l'ordinateur, c'est 
la possibilité d'essayer, de faire des erreurs (sans être pé- 
nalisé) et de les corriger. La méthode expérimentale y 
trouve toute sa valeur. 


L'ordinateur fournit aussi un compte rendu du travail des 
élèves, des erreurs commises, des difficultés rencontrées, de la 
durée d'attention propre à chaque élève ; ce qui permet ensuite 
d'analyser ces résultats et de personnaliser enfin les leçons en 
classe. 


Il apporte une nouvelle vision du travail des enfants. Ainsi, 
sur le programme de lecture rapide (avec des mots nouveaux à 
trouver), des enfants ayant de grosses difficultés au niveau du 
français ont eu d'aussi bons résultats que les meilleurs. 


L'ordinateur doit ainsi aider, dans une école, à atténuer les 
différences d'origines culturelles ou sociales entre les enfants, 
principalement au niveau du soutien, en déchargeant l'ensei- 
gnant de tâches répétitives dans cette forme de travail indivi- 
dualisé. 


A la maison, ces programmes vous aideront à faire acquérir 
où réviser à vos enfants des connaissances de base indispen- 
sables. 
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Il est important que chacun utilise les possibilités offertes dans 
les sections « modifications » et « adaptations » (et peut-être 
d'autres possibilités non définies ici !) car l'enseignement ne 
doit pas être banalisé par des « machines à apprendre ». Au 
contraire, ces programmes peuvent être un point de départ pour 
vous aider à résoudre des difficultés bien précises que vous 
pourrez rencontrer. 


Les programmes purement didactiques auraient pu être as- 
similés à des jeux en ajoutant, comme on le voit beaucoup, une 
« sauce » autour du plat de résistance, selon le principe bien 
connu du « pendu » : une fusée qui perd du carburant à chaque 
mauvaise réponse, un lapin qui mange ou perd des carottes, 
etc. Mais alors, les listings auraient été encore plus longs... A 
vous de programmer maintenant, si vous le souhaitez, et si la 
place en mémoire de l'unité centrale seule vous le permet | 


Un autre rôle de l'ordinateur à l'école, et non des moindres, 
réside dans l'apprentissage de la programmation par les en- 
fants : obliger à établir un projet, le concevoir et l'écrire selon 
la logique informatique, le tester, rectifier les erreurs, Toutes 
ces actions sont éminemment pédagogiques. Mais cela néces- 
site beaucoup de matériel et la formation de tous les ensei- 
gnants. 


Si l'entrée de l'ordinateur à l'école primaire est un des objec- 
tifs prioritaires du ministère de l'Education nationale pour les 
années 1985 à 1989, l'important est d'abord d'être convaincu 
de son utilité, puis de s’en servir, même si l'on ne connaît pas 
bien encore les bases de programmation, de faire travailler les 
enfants sur les programmes présentés ici, et, peu à peu, de 
s'investir dans le programme en le modifiant, en l’adaptant, 
puis enfin en créant ses propres programmes. 


Les enfants connaîtront peut-être alors « cet éveil au phéno- 
mène socio-culturel et technologique que constitue l'informa- 
tique » encouragé par le ministère de l'Education nationale et 
le plan « Informatique pour tous ». 


ANNEXE 


DISQUETTE 
D'ACCOMPAGNEMENT 


L'ouvrage “Amstrad à l'école” vous propose un ensemble de 
programme Basic permettant une utilisation pédagogique de 
votre Amstrad CPC. Sa disquette d'accompagnement s'adresse 
notamment à tous ceux qui n’ont pas le temps de recopier le 
programme sur leur ordinateur. 





Vente par correspondance 


BON DE COMMANDE 


Je commande la disquette d'accompagnement du livre : « Amstrad à l'école » au 
prix de 150,00 FF *. 


Renvoyez-nous ce bon rempli (découpé ou copié), avec votre règlement, plus 
10,00 FF** de frais de port et d'emballage, par chèque bancaire ou postal établi à 
l'ordre de LA CONSOLE. 

Adresse : La Console, 5, place du Colonel Fabien, 75010 Paris 





NOM No rnrarnm Minis Prénom ................... 
AdreSSE sr isiriirsinirars asset dre mnenet tenants on diner astra 
sen td ere TR NET Co de MR n nat ele ren ne tes ICE RS PE 
Codé postal rene PAYS roue nn ner LRO D ane er at ed 


* 


Prix valable jusqu'au 31 décembre 1986. 
** Hors CEE, prévoyez 15,00 FF pour supplément de frais d'expédition. 
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dir 

A: Di BAS : DE EAS : DE EAS : D4 RAS 
A: DS BAS : D6 EAS : D7 EAS : D8 EAS 
A: D9 HAS : D1Q EAS : Dil EAS : MENU EAS 
A: EIM BAS : VILLES BAS : DICTEE EAS : SOUTIEN  EHAS 
A: SAFARI EAS : LECRM BAS : LECKR BAS : LECRD HAS 
A: LECKDNM BAS : FLURIEL BAS : CONJU BAS : ADDITION HAS 
A: SOUS EAS : KAVIT EAS : TRAIN BAS : FHRKASE EAS 
A: EIMNOIÏ BAS : EIMNOZ HAS : EIMNOZ HAS : MASSE BAS 
A: MASSEM BAS : COCETAIL BAS : TEXTE EAS : TEXTEM EAS 
A: ECRIS BAS : ECRISAM BAS : MULTI EAS : DIVI EAS 
A: JEU EAS : GOTH DAT 

A: 


Elle contient : 


— 39 programmes en Basic Amstrad, reflet des chapitres 
de ce livre. Ils se distinguent par l'extension “.BAS" 

Le programme “MENU.BAS”, écrit en Basic permet d’en- 
chaïîner les différents programmes du livre. Le END de chaque 
programme est remplacé par RUN “MENU” ce qui permet un 
retour au menu. Pour modifier les programmes il vous suffit de 
remplacer RUN "MENU" par END. 

— Le programme JEU.BAS permet de charger un jeu de 


caractères que nous vous offrons. Il utilise le fichier 
“GOTH.DAT”. 


ICHEAER CNE, =, / 1234 CE 7EN: ; = > ?RRECDEFEH 
LIKLMNDFOURSÉLUHXY2L\ 1? _‘abeder 9h: ik 1nnop 
an de 

adu 


CONSEILS DE LECTURE 


Pour approfondir vos connaissances en BASIC Amstrad et mieux 
connaître le système des CPC 464, 664 et 6128, P.S.I. vous pro- 
pose une palette d'ouvrages utiles. 


Pour mieux maîtriser le BASIC Amstrad 


me] 





BASIC plus 80 routines sur Amstrad — Michel Martin (Edi- 
tions du P.S.I.) 


Pour pousser votre Amstrad au maximum de ses capacités ; 
80 routines de simulation d'instructions qui n'existent pas en 
BASIC Amstrad. 











BASIC Amstrad, CPC 464, 664 et 6128 : 1 - Méthodes pra- 
tiques ; 2 - Programmes — Jacques Boisgontier (Editions du 
PISE) 


Pour ceux qui ont déjà pratiqué un BASIC, voici deux ouvrages 
de perfectionnement au BASIC Amstrad, illustrés par de nom- 
breux programmes-exemples. 





Pour être informé régulièrement de l'actualité des 
micros Amstrad 














MICROSTAD, revue mensuelle du Groupe Test 


Pour exploiter au mieux les capacités de votre micro, vous trou- 
verez au sommaire de chaque numéro, un rendez-vous avec les 
rubriques clés : 
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— Découvrez la face cachée de votre CPC ou PCW : astuces, 
idées, conseils, tout pour comprendre votre micro, son 
anatomie, son fonctionnement, sa programmation et ex- 
ploiter ses capacités graphiques et sonores. 


— Domptez votre CPC 464, 664, 6128, PCW 8256 ou 8512 : 
passionnés, petits où grands, spécialistes ou débutants, 
une information pratique et la compétence d'experts au 
service de votre micro. 

— Programmez votre micro Amstrad : dans chaque numéro 


de MICROSTAD, un cocktail de programmes (dessins, jeux, 
utilitaires, gestion, etc.) et des trucs de programmation. 
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Votre avis nous intéresse 


Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le 
présent ouvrage. 


— Ce livre vous donne-t-il toute satisfaction ? 





Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous ne manquerons 
pas de vous répondre directement. 


Où avez-vous acheté ce livre ? 


D cadeau O librairie [ autres 
C exposition [ boutique micro 

Comment en avez-vous eu connaissance ? 

CO publicité D catalogue Û autres 
O exposition [ conseils d'un ami 


Avez-vous déjà acquis des livres P.S.I. ? 
Lesquels 7.1: 





qu'en pensez-vous ? 





NOM Prénom étant AO... 





ProfessiOn... dut dd dents a a 
Centre d'intérêt ner nt ee rl 








CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 
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